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ABSTRACT 


Monte  Carlo  procedures  designated  as  LI1E-I  and  LITE-II  were 
developed  to  study  the  transport  of  lignt  through  the  earth's  atmo 
sphere  under  various  environmental  conditions,  LITE-I  treats  mono 
chromatic  light  emitted  from  a  point  source,  and  LITE-11  treats 
monochromatic  plane  sources  of  light.  The  codes  have  been  written 
in  both  ALGOL  for  the  Bur  rough's  B-5000  and  FORTRAN  II  for  other 
computers.  The  codes  are  sufficiently  flexible  to  treat  multiple 
scattering  in  an  atmosphere  in  which  air  density  and  aerosol  size 
distribution  vary  independently  and  arbitrarily  with  altitude. 
Provision  for  treating  ground  and  cloud  reflection  with  an  albedo 
method  is  also  available  in.  the  codes. 

The  codes  have  been  verified  through  comparisons  with  other 
calculations  of  light  transport  in  the  atmosphere.  Utilization 
instructions,  input  data  formats,  sample  problems,  and  the  ALGOL 
listings  of  the  codes  are  given  to  aid  those  who  wish  to  utilize 
the  codes. 
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I.  INTRODUCTION 


The  LITE-I  and  LITE-II  codes  were  developed  to  study  the  transport 
of  light  in  a  plane  atmosphere  under  various  environmental  conditions. 
LITE-I.  treats  multiple  scattering  from  a  point  source  of  light,  and 
LITE-II  treats  multiple  scattering  from  a  plane  source  of  light.  The 
Monte  Carlo  methods  utilized  in  the  codes  are  described  in  detail  in 
Volume  I  of  this  report,  The  description  includes  the  methods  used 
to  describe  an  air-ground  geometry,  to  treat  Rayleigh  and  Mie  scatter¬ 
ing,  and  to  treat  ground  and  cloud  reflection. 

The  LITE  codes  were  written  in  both  ALGOL  for  the  B-5000  and 
FORTRAN  II  for  other  computers.  This  volume  of  the  report  includes 
the  input  data  formats  for  the  ALGOL  versions  of  the  codes.  The  input 
data  formats  for  the  FORTRAN  versions  are  different  from  t.iose  in 
ALGOL  versions,  only  in  that  the  format  for  floating  point  lumbers 
have  an  E  preceding  the  exponent,  rather  than  an  @  symbol.  That  is, 
the  number  217.8  would  be  written  in  floating  form  as  2.178@+02  for 
the  ALGOL  versions  of  the  code,  and  2.178E+02  for  the  FORTRAN  versions. 
The  order  of  the  input  data  and  field  width  specifications  are  the 
same  for  both  the  FORTRAN  and  ALGOL  versions. 

This  volume  of  the  report  should  be  considered  as  a  utilization 
document  for  the  LITE-I  and  LITE-II  codes.  Operator  instructions  for 
running  the  LITE  codes  on  the  B-5000  computer  and  on  the  IBM  7090  are 
contained  in  Section  II.  The  input  data  formats  for  the  ALGOL  ver¬ 
sions  of  the  two  codes  are  given  in  Section  III.  The  input  and  out¬ 
put  of  a  sample  problem  run  with  each  code,  LITE-I  and  LITE-II,  are 
discussed  in  Section  IV.  In  Section  V,  listings  of  the  ALGOL  language 
instructions  for  the  two  LITE  codes  are  presented. 
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II.  OPERATOR  INSTRUCTIONS 

The  ALGOL  versions  of  the  LITE  codes  were  designed  to  run  on  the 
Burroughs  B-5000  computer.  The  multi-processing  feature  of  the  B-5000 
allows  on-line  read  in  and  printout  of  data  from  one  program  while 
computation  is  being  performed  with  another  program.  Thus  the  LITE 
codes  may  be  read-in  and  printed-out  on-line  The  Fort  Monmouth 
computing  center  plans  to  store  the  object  program  on  tape  and  read 
the  program  from  tape  to  reduce  the  number  of  cards  that  have  to  be 
loaded  each  time  a  program  is  run  with  one  of  the  codes.  The  ALGOL 
versions  use  no  tape  units  other  than  those  that  a  facility  normally 
uses  for  input  and  output 

The  FORTRAN  versions  of  the  LITE  codes  are  designed  for  off-line 
read-in  and  printout.  The  FORTRAN  II  binary  decks  and  the  problem 
decks  are  loaded  on  input  tape  5  and  the  output  is  produced  on  output 
tape  6.  No  scratch  tapes  are  required  for  the  program  operation 

The  running  time  for  the  LITE  codes  is  highly  dependent  upon  the 
input  data.  In  particular,  the  running  time  is  dependent  on  the 
fraction  of  the  total  collisions  that  are  taken  to  be  Rayleigh  scatter¬ 
ing  events,  on  the  average  number  of  collisions  followed  per  history, 
and  on  the  total  number  of  histories  followed.  The  multi-processing 
feature  of  the  B-5000  makes  it  difficult  to  predict  the  machine  time 
required  to  run  a  given  problem  unless  the  problem  is  the  only  one 
being  processed  in  the  B-5000.  The  time  required  to  run  a  LITE-I 
problem  on  the  B-5000  was  checked  for  three  separate  runs  of  the 
problem.  The  times  required  for  each  of  the  three  runs  were  found 
to  be  different,  varying  by  a  factor  of  three  over  the  range  of  the 
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slowest  to  the  fastest  time.  The  average  time  per  collision  is  esti¬ 
mated  to  be  about  .002  minutes  for  problems  having  five  detector  posi¬ 


tions  . 


Ill  INPUT  DATA  FORMATS 


The  input  data  formats  for  LITE-I  and  LITE-II  are  identical  even 
though  some  of  the  input  data  used  in  LITE-I  are  not  used  in  LITE-II. 

The  provisions  for  reading  in  these  items  are  the  same  for  both  codes, 
therefore,  those  input  data  not  actually  used  in  the  LITE-II  calcula¬ 
tions  are  indicated  by  an  asterick,  and  comments  are  made  in  the 
following  sections  prescribing  how  these  items  should  be  treated  when 
preparing  input  data  for  LITE-II.  The  unit  used  to  define  distances 
(centimeters,  meters,  feet,  etc.)  should  be  the  same  for  all  distances 

described  by  the  input  data  to  the  LITE  codes.  If  the  unit  is  meters, 

-2 

then  the  intensities  are  in  units  of  photons  m  /source  photon  for 

-2  -2 

LITE-I  and  photons  m  /source  photon  m  for  LITE-II 

The  input  for  the  LITE  codes  is  divided  into  ten  groups.  The 
number  in  column  10  of  the  first  card  of  each  group  designates  the  group 
of  input  data  that  follows  on  that  and  succeeding  cards. 

3.1  Control  Numbers 

Table  I  contains  control  numbers  in  Group  I  that  specify  the  amount 
of  input  data  required •  Some  of  the  control  numbers  appear  again  in 
the  other  input  groups.  When  this  occurs,  the  two  values  input  for  the 
same  item  must  agree  or  the  program  will  detect  an  error  and  terminate 
the  problem.  The  number  of  histories  to  be  processed,  NHMAX,  may  be 
divided  into  sample  sizes  of  NHMAX/NGROUP.  The  sample  size  must  be  less 
than  500.  The  number  of  groups,  NGROUP,  into  which  the  histories  are 
divided,  should  be  large  enough  to  provide  for  an  accurate  calculation 
of  a  standard  deviation.  Six  bases  are  input  for  the  random  number 
generator.  This  allows  consecutive  random  numbers  to  be  generated 
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TABLE  1 


GROUP  l  Input 

Data  (Con1 rol  Numbers) 

Card 

Format 

Input 

Item 

Definition 

Limit 

1 

110 

LIBRAY 

Input  group  number 

*1 

2 

6110 

NHMAX 

Number  oi  histories 

NGROUP 

Number  of  deviation  groups  (The  num¬ 
ber  of  histories  should  be  equally 
divisible  by  NGROUP.) 

NHMAX  -500 
NGROUP  - 

NRMAX 

Number  of  regions 

_100 

NBMAX 

Number  of  boundaries 

„i00 

NCMAX 

Maximum  collisions  allowed  per 
history 

NDMAX 

Number  of  receivers 

llO 

3 

6110 

NPA 

Number  of  print  cosines 

_25 

NPCOL 

Number  of  print  collisions 

_24 

NAOP 

Option  for  sampling  source  angles 
-  -1,  isotropic  distribution,  no 
biasing 

*  0,  biased  sampling  from  isotropic 
distribution 

=  1,  anisotropic  distribution 

NAG 

Number  of  cosines  for  defining 
source  angular  distribution 

_3  ; 

NRFLB 

Number  of  reflection  boundaries 

_5 

NMAT 

Number  or  regions  having  different 
Mie  ohase  functions 

-10 

4 

6110 

NSCREG 

Number  of  source  region 

MAXR 

Maximum  number  of  reflections  allowed 

IBASE 

Base  for  random  number  generator 

IBAS1 

Base  for  random  number  generator 

I  BAS  2 

Base  for  random  number  generator 
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TABLE 

I  (c 

on't) 

Card 

Format 

Input 

Item 

Definition 

Limit 

4 

6110 

I  BAS  3 

Base 

for  random  number 

generator 

5 

2110 

I  BAS  4 

Base 

for  random  number 

generator 

IBAS5 

Base 

for  random  number 

generator 

TABLE  II 

Group  2  Input  Data 

Card 

Format 

Input 

Item  Definition 

Limit 

1 

110 

LIBRAY 

Input  group  number 

2 

6R10.4 

HS 

Source  height 

DLONG 

Large  distance  for  boundary  dis¬ 
tance  calculation 

DELTA 

Small  distance  for  stepping  off 
boundary 

SMVAL 

Small  value  for  testing  cosine 
angle  with  zero 

WCO 

Weight  cut-off  parameter 

ELIM 

Maximum  number  of  errors  to  be 
allowed 

3 

RIO.  4 

DMIN 

Minimum  distance  from  collision 
to  receiver  point 

using  a  different  base  Generating  random  numbers  in  this  manner 
insures  the  independence  between  consecutive  random  numbers  and  de¬ 
creases  the  possibility  of  producing  identical  histories  when  a  random 
number  generator  recycles 

3. 2  Constants 

Table  IX  contains  constants  in  Input  Group  2  that  are  used  b>  the 
code.  Since  the  values  to  be  assxgned  these  constants  depend  on  the 
individual  problem,  they  are  included  as  input  rather  than  being  tixed 
within  the  code.  For  economy,  the  distance,  DLONG,  should  be  greater 
than  the  maximum  possible  distance  within  an  inside  region.  The  dis¬ 
tance,  DELTA,  should  be  a  small  value,  but  large  enough  to  change  the 
maximum  possible  distance  within  an  inside  region  in  the  fifth  or  sixth 
significant  digit  when  added  to  that  distance  ELIM  is  an  input  item 
that  will  prevent  those  errors  that  occur  with  a  very  small  probability 
from  terminating  the  problem  When  fewer  than  ELIM  errors  occur,  those 
errors  will  be  listed  with  the  output,  but  only  those  histories  con¬ 
taining  the  errors  will  be  terminated.  The  results  for  all  other  his¬ 
tories  will  be  saved  and  printed  as  output. 

3.3  Source  Angular  Distribution 

Input  Group  3  data  which  are  used  to  describe  the  source  angular 
distributions  are  given  in  Table  III.  All  angular  distributions  are 
considered  to  symmetrical  about  the  vertical,  H,  axis  The  source 
angular  distribution  is  assumed  to  be  defined  with  a  cumulative  distri¬ 
bution  expressed  in  terms  of  the  cosine  of  the  angle  measured  from 
the  positive  H  axis.  Provisions  for  sampling  from  a  biased  distribution 
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TABLE  III.  GROUP  3  Input  Data  (Source  Angular  Distribution) 


Input 

Card  Format  Item  Definition 


Limit 


1 


3110  LIBRAY  Input  group  number 


NAOP  Option  for  sampling  source 
angles  (See  Table  I) 


=  3 


NAG  Number  of  cosines  for  defining 

source  angular  distribution  -<37 


2  6R10.4  CANG(J) 

continues 
on  follow¬ 
ing  cards 


Cosine  values  at  which  the  cumula-  J-l,  NAG 
tive  source  angular  probabilities 
are  given  (cosines  in  descending 
order) 


Follows  6R10-4  PAG(J) 

last  card 

containing 

CANG(J) 


Cumulative  probabilities  defining  J=1 ,  NAG 
source  angular  distribution  (first 
value  must  be  zero,  probabilities 
in  ascending  order) 


Follows  6R10.4  WAG(J)*  Weight  parameter  for  biased  sampl-  J=l,  NAG 
last  card  ing  from  anisotropic  distribution 

containing  (omit  unless  NAOPs.l) 

PAG(J) 


*  WAG(J)  is  the  weight  that  will  be  assigned  to  particles  emitted  from 
the  source  at  angles  with  cosines  between  CANG(J-l)  and  CANG(J).  Thus 
WAG(l)  is  arbitrary,  since  it  will  never  be  used  by  the  code. 


Q 


are  also  included  to  improve  the  sampling  in  ihe  directions  coward 
the  receiver  positions  It  the  original  angular  distribution  is 
isotropic,  then  the  program  adjusts  the  light  particle  weight  auto¬ 
matically,  but  if  the  origin  1  distribution  is  anisotropic,  then  the 
weight  adjustment  parameters,  WAG,  must  be  input. 

3. 4  Reflection  Distribution 

Table  IV  lists  Input  Group  4  data  wh.\ch  are  used  in  describing 
the  reflection  of  light  from  a  ground  or  cloud  surface  If  the  problem 
contains  no  reflection  surfaces,  this  group  of  data  may  be  omitted 
A  listing  of  Input  Group  4  data  is  required  for  each  reflection  sur¬ 
face.  The  reflection  surfaces  are  limited  to  5  for  any  one  problem 
and  the  boundary  number  assigned  to  any  reflection  surface  must  be 
less  than  or  equal  to  5  Reflection  is  limited  to  plane  surfaces 
The  angular  distribution  of  the  reflected  light  must  be  expressed  in 
terms  of  the  cosine  of  the  angle  measured  from  the  normal  to  the  re¬ 
flection  surface  and  is  assumed  azimuthally  symmetric.  If  the  re¬ 
flection  distribution  is  isotropic  in  the  upper  or  lower  hemispheres, 
then  the  reflection  angle  distribution  tables  should  be  omitted  If 
the  reflection  distribution  is  anisotropic,  then  both  the  reflection 
distribution  and  the  cumulative  distribution  must  be  input. 
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TABLE  IV.  GROUP  4  Input  Data  (Reflection  Distributions) 


Input 

Card  Format  Item  Definition 


Limit 


1 


5110 


LIBRA?  Input  group  number 


■=4 


NRB 

JREFLT(NRB) 


NRFANG(NRB) 


NRFCOS (NRB) 


2  RIO. 4  ALBEDO (NRB) 


Number  of  reflection  boundary  <5 

Reflection  Option 
=  1,  reflection  isotropic  in 
upper  hemisphere 
=  2,  anisotropic  in  upper 
hemisphere 

=  3,  isot topic  in  lower 
hemisphere 

=  4,  anisotropic  in  lower 
hemisphere 

Number  of  points  used  to  de¬ 
fine  reflection  distribution 
at  boundary  NRB  *37 

Number  of  cosines  defining 
cumulative  reflection  distri¬ 
bution  at  boundary  NRB  <50 

Reflection  Albedo 


3  6R10.4  *RFANG(NRB,J) 

continues 
on  follow¬ 
ing  cards 


Cosines  of  angles  used  to  de¬ 
fine  reflection  distribution 
(omit  if  JREFLT(NRB)*1  or  3,  J*l, 
descending  order)  NRFANG(NRB) 


Follows  6R10.4  *P0R(NRB,J) 
last  card 
of:  RFANG's 


Probability  of  reflecting 
per  unit  solid  angle  into  an 
angle  whose  cosine  is  RFANG 
(NRB,J )  (Omit  if  JREFLT(NRB)  J=l, 

=  1  or  3)  NRFANG(NRB) 


Follows 
last  card 
of  POR's 


RFLCOS(NRB, J)  Cosine  values  of  reflection 
angle  corresponding  to  the 
cumulative  reflection  distri¬ 
bution  for  values  of  J/NRFCOS 
(NRB) -  Input  the  values  of 
RFLCOS  in  descending  order. 

First  cosine  is  input  for 
probability  =  1  /NRFCOS (NRB ) .  J  =  l, 

(Omit  if  JREFLT  --  1  or  3).  NRFCOS  (NRB) 


*  These  values  are  not  used  in  LITE-Il;  however,  if  JRFLT(NRB)  equals  2 
or  4,  some  arbitrary  values  must  be  input  tor  these  values,  since  the 
instructions  for  reading  in  these  items  have  not  been  removed  from 


LITE- IIo 
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3, 5  Printout  Control 

Input  Group  5  data,  which  describes  the  upper  bounds  of  the  print 
angle  groups  and  the  print  collision  numbers,  are  shown  in  Table  V 
The  upper  bounds  of  the  print  angles  are  given  in  terms  of  the  :osine 
of  the  angles  between  i.he  source-receiver  axis  and  the  direction  of 
the  scattered  light  at  the  receiver  position  for  LITE-I  and  in  terms 
of  the  cosine  of  the  angle  between  the  particle's  direction  and  the 
normal  to  the  receiver  plane  for  LITE-II.  The  print  collision  num¬ 
bers  are  the  orders  of  scattering  for  which  scattered  light  intensi¬ 
ties  are  to  be  listed  The  light  intensity  from  all  orders  of  scat¬ 
tering  greater  than  the  previous  collision  number  up  to  and  including 
the  given  collision  number  is  listed  opposite  each  print  collision 
number. 


TABLE  V.  Group  5  Input  Data  (Printour  Control) 


Card 

Fo rmat 

Input 

Item 

Definition 

Limit 

1 

3110 

LI BRAY 

Input  group  number 

=  3 

NPCOL 

Number  of  print  collisions 

_24 

NPA 

Number  of  print  cosines 

2 

6110 

INCOL(J) 

Print  collision  numbers 

J=l,  NPCOL 

continues 

(in  ascending  order) 

on  follow 

- 

ing  cards 

Follows 

6R10, 4 

CIPA(J) 

Print  cosines  (descending 

J-l,  NPA 

last  card 

order) 

of  INCOL' 

s 
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3.6  Detector  Locations 


Input  Group  6  data,  which  describe  the  detector  locations,  are 
listed  in  Table  VI,  In  tracing  histories  with  LITE-I,  only  the 
height  and  radius  of  each  collision  point  are  preserved  to  identify 
the  location  of  the  collisions  The  azimuthal  angle  between  a  plane 
containing  the  source  and  collision  points  and  a  plane  containing 
the  source  and  detector  points  is  selected  at  random  from  a  uniform 
distribution  between  0  and  2",  To  improve  the  statistics,  several 
azimuthal  angles  may  be  selected  for  a  given  detector  radius  and  an 
estimate  made  of  the  light  intensity  scattered  to  the  detector  for 
each  azimuthal  angle  so  determined.  The  intensities  at  detector 
points  defined  by  each  of  these  azimuthal  angles  are  averaged  to 
obtain  the  intensities  at  a  single  detector  point.  The  input  item 
NPHID(J)  specifies  the  number  of  azimuthal  positions  that  will  be 
selected  for  the  jth  detector  point.  In  LITE-II  only  the  heights 
of  the  collision  points  are  recorded,  thus  the  values  input  for 
RD(I)  and  NPHID(I)  are  not  used  in  the  scattering  calculation  and 
may  be  left  blank. 


In  LITE-I,  DBSS(J)  is  the  light  intensity  per  unit  source 
strength  emitted  per  unit  solid  angle  in  a  direction  toward  a  point 
located  on  the  jth  detector  ring  LITE-I  calculates  the  direct  beam 
intensity  for  the  jth  detector  ring  with  the  expression, 


DBI  =  DBSS (J)e 


-RHOT/T 


2 


where  RHOT  is  the  number  of  optical  path  lengths  between  the 
source  and  the  jth  detector  point,  and 
T  is  the  distance  from  the  source  point  to  the  jth 
detector  point. 


i  3 


TABLE  VI.  Group  6  Input-  Data  (Detector  Locations) 

Input 

Card  Format  Item  Definition  Limit 

1  2110  LIBRaY  Input  p  number  -6 

NDMAX  Numbt  i  detector  rings  ^.10 

2  2R10  4, 

110, RIO, 4  HD(1>  Height  of  1st  detector  ring 

’“'RDtl)  Radius  of  1st  detector  ring 

*NPHID; 1 )  Number  of  detector  points  on  1st  ring 

*DBSS(1)  Direct  beam  source  strength  for  1st 
detector 

3  2R10.4, 

110, RIO, 4  HD(2)  Height  of  2nd  detector  ring 

*RD(2)  Radius  of  2nd  detector  ring 

*NPHID(2)  Number  of  detector  points  for 
2nd  ring 

DPSS(2)  Direct  beam  source  strength  tot 
2nd  detector 


A  card  similar  to  2  and  3  is  required  for  each  detector  ring 


Last  2R10.4, 

card  110, RIO. 4  HD(NDMAX)  Height  of  last  detector  ting 
of 

group  *RD( NDMAX)  Radius  of  last  detector  ring 

6 

*NPH1D  Number  of  detector  points  on  last 

(NDMAX)  ring 

*DBSS  Direct  beam  source  strength  tot  last 

(NDMAX)  detector  ring 


*  The  NPHID(J)  values  are  not  used  by  LITE- II,  and  the  RD(J)  and 

DBSS(J)  values  should  be  input  fcr  LITE- II  as  discussed  m  Section  u  6 


The  equation  used  for  direct-beam  calculations  in  both  LITE-I 
and  LITE-II  are  identical,  therefore,  the  direct-beam  calculation 
is  only  applicable  to  plane  parallel  sources  in  LITE-II.  For  a 
plane  parallel  source,  the  values  input  for  RD(J)  should  be  given 
by  the  expression 

RD( J)  =  (KD(J)-KS) /cos  0 

o 

where  HD(J)  is  tho  height  of  the  Jth  receiver  plane, 

HS  is  the  height  of  the  source,  and 

cos0  is  the  cosine  of  the  angle  at  which  the  source  is  inci- 

o 

dent  upon  the  slab. 

In  addition,  DBSS(J)  should  be  input  as  th<=  product  of  the 

number  of  particles  emitted  per  unit  area  from  the  source  plane 

times  the  secant  of  the  source  angle  times  the  slant  thickness 
2 

squared,  T  ,  between  the  source  and  receiver  plane. 

3. 7  Geometry  Description 

Input  Group  7  data  listed  in  Table  VII  provides  for  the  geo¬ 
metry  description.  An  air-ground  geometry  is  defined  with  region 
boundaries  composed  of  horizontal  planes  and  right  circular  vertical 
cylinders  in  LITE-I  and  by  horizontal  planes  in  LITE-II.  The  planes 
are  identified  as  boundary  type  1  and  the  cylinders  as  boundary  type 
2.  For  boundary  type  1,  COEE  is  the  H  intercept  of  the  plane,  and 
for  boundary  type  2,  COEE  is  the  radius  of  the  cylindrical  surface. 
All  reflection  surfaces  must  be  assigned  boundary  numbers  less  than 
or  equal  to  5.  A  negative  sign  preceding  the  boundary  number, 
NBOUND,  denotes  a  reflection  boundary.  Regions  are  defined  by  the 
signed  boundary  numbers  encompassing  the  region.  In  reference  to 


TABLE  VII  Group  7  Input  Data  (Geometry  Description) 


Card 

Format 

Input 

Item 

Definition  Limit 

1 

3110 

LI BRAY 

Input  group  number  -1 

NBMAX 

Number  or  boundaries  _i00 

NRMAX 

Number  of  regions  _100 

2 

2110 
RIO  4 

UNBOUND ( 1 ) 

Position  ot  boundary  1  in  boundary  table 

ITYPEfn 

Type  of  boundary  1,  ITYPE(l)  *  1,  H  plane 

I TYPE ( 1 )  --  2,  cylinder 

COEE  (  1 ) 

Coefficient  of  boundary  1 

A  card 

similar  to 

card  2  is  'equired  tor  each  boundary. 

Follows  315, 
last  F5.2, 
boundary  815 
card 

*NREG( 1 ) 

NB(1) 

MAT(l) 

Position  of  region  1  in  region  table 

Number  of  boundaries  encompassing  region  i 

Phase  function  number  for  region  1 

EMP(l) 

Importance  number  for  region  1 

IB(1,1) 

first  boundary,  bounding  region  1  (sign  on 

IE  designates  inner  or  outer  boundary  with 
respect  to  region  1) 

MPR(1,1) 

Most  probable  region  of  entry  across  first 
boundary  of  region  1 

IB( 1, 2) 

Second  boundary  bounding  region  1  with 
appropriate  sign 

MPR(1 , 2 ) 

Mosr  probable  region  of  entry  across 
second  boundary  of  region  1 

IB (1,3) 

Third  boundary  bounding  region  1  with 
appropriate  sign 

MPR(1 , 3) 

Most  probable  region  of  entry  across 
third  boundary  of  region  1 

IB(1,4) 

Fourth  boundary  bounding  region  1  with 
appropriate  sign 

MPR(1,4) 

Most  probable  region  of  entry  across 
fourth  boundary  ot  region  1 

A  card  similar  to  the  preceding  card  is  required  for  each  region  in¬ 
cluding  outside  regions. 

*  Boundaries  and  regions  are  assigned  numbers  sequentially  in  the  order 
they  are  listed  in  the  input  The  values  NBOUND(J)  and  NREG(j;  there¬ 
fore  should  both  begin  with  1  for  the  first  boundary  or  region  listed 
and  increase  sequentially  for  the  remaining  boundaries  or  regions 
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planes,  the  minus  sign  denotes  a  "lower"  plane,  and  the  plus  sign 
denotes  an  "upper"  plane.  In  reference  to  a  cylindrical  surface,  the 
minus  sign  denotes  an  "inner"  surface,  and  the  plus  sign  denotes  an 
"outer"  surface.  All  space  must  be  identified  including  outside  re¬ 
gions  which  are  not  completely  encompassed  by  boundaries  *  The  most 
probable  regions  of  entry,  MPR,  are  given  to  speed  up  the  region 
search  process.  When  there  are  two  or  more  possible  regions  of  entry 
across  a  given  boundary,  the  region  with  the  smallest  region  number 
should  be  given  as  the  most  probable  region  of  entry. 

The  region  importance  number,  EMP,  is  given  to  reduce  the  sampl¬ 
ing  in  regions  of  minor  importance.  A  particle  when  crossing  from 
one  region  to  a  region  of  more  importance  will  not  be  affected  by 
the  region  importance  numbers.  However,  when  a  particle  crosses  from 
a  region  to  a  rteio.i  of  less  importance,  a  random  number  will  be 
generated  and  the  history  terminated  if  the  ratio  of  tne  importance 
numbers  (EMP  for  region  entered/EMP  for  region  exited)  is  less  chan 
the  random  number.  If  the  ratio  of  the  importance  numbers  is  greater 
than  the.  random  number,  then  the  particle  weight  is  multiplied  by  the 
reciprocal  of  the  ratio  and  tracing  oi  the  history  is  continued, 

3, 8  Mie  Scattering  Data 

The  Input  Group  8  data  listed  in  Table  VI  LI  defines  che  Mie 
scattering  phase  functions  to  be  used  in  the  air-ground  geometry. 

The  data  shown  in  Table  VIII  for  Input  Group  8  must  be  repeated  for 
each  phase  function  to  be  defined.  Up  to  10  phase  functions  may  be 
defined  in  any  one  problem.  MAT  is  the  number  assigned  to  the  phase 
function  defined  by  the  data  in  Input  Group  8.  This  number  is  used 


TABLE  VIII  Group  8  Input  Data  (Mie  Scattering  Data) 


Card 

Format 

Input 

Item 

Definition 

Limit 

1 

2110 

LIBRAY 

Input  group  number 

--8 

MAT 

Mie  scattering  phase  function 
number  for  the  following  data 

.10 

2 

2110 

10X,R10. 4 

NDFCOS 

(MAD 

Number  of  cosines  for  which  the  Mie 
scattering  phase  function  are  given 

_50 

NPHANG 

(MAT) 

Number  of  cosines  used  to  describe  the 
cumulative  angular  distributions  for 

Mie  scattering 

„50 

RAYLEE(MAT) 

*  1,  Rayleigh  scattering  only 

*  0,  Both  Rayleigh  and  Mie  Scattering 

3 

6R10  4 

*DIFCOS 
(MAT , J) 

Cosine  values  at  which  Mie  scattering 
phase  functions  are  listed  (descending 
order)  Omit  if  RAYLEE  =  1 

•H, 

NDFCOS 

(MAT) 

Follows 

last 

DIFCOS 

card 

6R10  4 

*PDC0S 

(MAT,J) 

Values  of  the  phase  function  at  the  de¬ 
signated  cosines  Omit  if  RAYlEE  =■  1 

NDFCOS  values. 

J-l, 

NDFCOS 

(MAI 

Follows 

last 

PDCOS 

card 

6R10.4 

PHANG 
(MAT, J) 

Cosines  at  equal  probability  intervals 
describing  cumulative  phase  function 
Omit  if  RAYLEE  =  1  (.descending  order) 
f H A i\ G f ' "■  T .  •  i  —  1  /  NFHANutMAT ) 

J-l, 

NPHANG 

(MAI) 

*  The  values  input  for  DIFCOSfMAT , i )  and  PDCOS(MAT,J)  are  not  used  by 
LITE-II.  However,  at  least  one  value  mist  be  input  for  each  of  these 
items  if  RAYLEE(MAI)  is  less  than  1  (The  provisions  for  reading  m 
these  values  were  not  removed  from  LITE-II.) 


18 


to  designate  the  phase  function  for  each  of  the  regions  defined  by 
the  Input  Group  7  data. 

Special  routines  have  been  incorporated  into  the  code  for  treat¬ 
ing  Rayleigh  scattering,  therefore,  it  is  only  necessary  to  input  the 
Mie  scattering  phase  functions.  If  only  Rayleigh  scattering  is  to  be 
considered  (RAYLEE  *  1,0),  then  Input  Group  8  data  defining  DIB’COS (MAT, j)  , 
PDCOS (MAT, J) ,  and  PHANG(MAT,J)  may  be  omitted  When  Mie  scattering 
is  treated,  both  the  phase  function  and  the  cumulative  Mie  scattering 
angular  distribution  must  be  input. 
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3. 9  Cross  Section  Input  Data 

Input  Group  9  data  give  the  number  of  mean-f ree-path  lengths  to 
ground  level,  the  ratio  of  the  scatter ing-to-total  cross  section, 
and  the  ratio  of  Rayleigh  tc  scattering  cross  section  as  of  function 
of  altitude  The  scattering  cross  section  is  taken  to  be  the  sum  of 
the  Mie  and  Rayleigh  scattering  cross  sections.  The  difference 
between  the  extinction  coefficient  (total  cross  section)  and  the 
scattering  cross  section  is  defined  as  the  absorption  cross  section 

The  number  of  mean~f ree-path  lengths,  TAU,  from  the  ground  level 

to  height  HV  is  defined  by  the  equation 

UV 

TAU  \  >:  (h)dh 
0  1 

where  ^(h)  is  the  extinction  coefficient  as  a  function  of  the  alti¬ 
tude  h 


TABLE  IX.  Input  uroup  9  (Cress  Section  Input  Data) 


Input 

Card 

Format 

Item 

Definition 

Limit 

1 

2110 

LIBRAY 

Input  group  number 

-9 

NOH 

Number  of  altitudes  at  which  the 
path  lengths  trem  zero  to  HV  are 
listed 

_100 

2* 

AR10.4 

HV(J) * 

Altitude  for  which  cross  section 

through 

data  is  to  be  listed 

J=1,N0H 

NOH+1 

TAU(J) 

Number  of  path  lengths  from  zero 
to  HV( J) 

J=1 ,N0H 

SCATR(J) 

Ratio  of  scattenng-to-total  cross 
section  for  altitude  HV(J) 

J= i ,N0H 

RAYR(J) 

Ratio  of  Rayleigh-to-scattering 
cross  section  for  altitude  HV(J) 

j«1,N0H 

*  Card  2  contains  the  four  items  h'V(J),  TAU(J),  SCATR(J),  and  RAYR(J)  for 
J=l,  the  same  four  items  for  J-2  are  on  the  next  cards,  and  etc 


3 . 10  Data  Print  and  Check  Options 


Data  for  Input  Group  10  as  given  in  Table  X  are  contained  on  a 
single  card-  This  card  gives  the  problem  number  and  data  print  and 
check  options.  The  problem  number  is  printed  on  output  to  identify 
the  output  data.  IDUMP  is  a  print  option  that  allows  the  printout 
of  intermediate  values  calculated  during  the  generation  ot  each  his¬ 
tory.  This  option  is  included  to  aid  in  checkout  The  quantity  of 
printout  produced  when  IDUMP  is  non-zero  makes  it  inadvisable  to 
print  the  intermediate  data  if  more  than  ten  histories  are  being 
processed. 

ICHECK  is  an  option  that  provides  for  several  checks  on  the 
input  data.  The  input  cumulative  probability  tables  are  checked 
for  ascending  order,  and  several  of  the  cosine  tables  are  checked 
for  descending  order.  In  addition,  various  input  values  are  checked 
to  insure  that  storage  locations  reserved  for  dimensioned  variables 
are  not  exceeded.  Cards  within  the  input  data  groups  1  through  9 
must  be  arranged  in  the  order  specified  in  Tables  1  through  IX, 
but  it  is  not  necessary  to  order  the  groups,  ’’’he  cards  for  Input 
Group  10  must  be  loaded  after  the  cards  for  all  other  input  groups 
have  been  loaded. 

3. 11  Loading  Instructions 

The  LITE  codes  are  designed  to  process  several  problems  during 
any  one  computer  run.  The  input  data  for  a  second  problem  may  be 
loaded  directly  behind  the  input  data  for  Input  Group  10  for  the 
previous  problem.  Furthermore,  if  any  of  the  input  data  groups  1 
through  9  are  identical  for  two  consecutive  problems,  that  input 
data  group  may  be  omitted  in  the  secc id  problem.  Each  individual 
problem  must  contain  a  card  for  input  Group  10. 
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TABLE  X.  Group  10  Input  Data  (Data  Print  and  Check  Options, 


Card 

Format 

Input 

I  tern 

Definition 

Limit 

i 

4110 

LIBRAY 

Input  group  number 

=  10 

NPROB 

Problem  number 

IDUMP 

Option  for  intermediate 

printout 

=  0,  no  Intermediate  printout 
-  1,  gives  intermediate  prir.  out 


I CHECK 


Option  for  checking  input  data 
=  0,  no  check  on  input  data 
*  1,  check  input  data 
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IV.  SAMPLE  PROBLEMS 

The  sample  problems  given  in  this  section  for  both  LITE-j.  and 
LITE-II  were  designed  to  calculate  the  angular  distribution  of  the 
scattered  radiation  emerging  from  a  Rayleigh  atmosphere. 

U  1  L1TE-I  Sample  Problem 


In  order  to  compute  the  transmitted  intensity  through  a  0.5 
mean-f ree-path  thick  Rayleigh  atmosphere  with  a  ground  albedo  of 
0.8,  the  point  receivers  in  the  LITE-I  problem  were  placed  just 
slightly  above  the  ground  surface  at  distances  0 50,  150,  300  and  500 
units  from  the  vertical  axis  through  the  source  point  The  units 
selected  are  arbitrary  units,  since  the  atmospheric  thickness  is 
measured  in  terms  of  optical  thicknesses  (mean-f ree-pu :h) .  The 
Rayleigh  atmosphere  was  described  as  being  301  units  thick  with  a 
cross  section  varying  exponentially  according  to  the  expression, 


1(h) 


0  00625e 


-0. 0125h 


where  h  is  the  altitude  in  the  arbitrary  units.  Thus  the  point  re¬ 


ceivers  were  located  at  0,  0  3125,  0  9 3 7 5 ,  1  875  and  3  125  mean- 


free-paths  from  the  vertical  axis  through  the  source  point 


Table  XI  lists  the  input  data  for  the  LITE-I  sample  problem. 

One  thousand  (1000)  histories  were  processed  in  ten  groups  of  100 
histories  each  A  maximum  of  20  collisions  and  10  reflections  were 
allowed  for  each  history.  The  source  angular  distribution  was  con¬ 
fined  to  a  single  angle  normal  to  the  upper  surface  of  the  atmosphere 
The  angular  distribution  of  the  reflected  photon  current,  was  input  as 
a  cosine  distribution  to  conform  to  Lambert's  iaw  of  reflection  The 
atmosphere  was  described  with  three  regions  separated  by  two  parallel 
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TABLE  XI.  LITE-1  CODE  SAMPLE  PROBLEM  INPUT  DATA 


1 

160001 

LITE 

100" 

10 

3 

2 

20 

5 

160002 

LITE 

20 

20 

-1 

2 

1 

1 

160003 

LITE 

7 

10 

39451 

26193 

34521 

36714 

160004 

LITE 

3674^ 

87321 

160005 

LITE 

7 

160006 

LITE 

3.0003&0? 

5.0003*03 

1  .0003-03 

1. 0003-02 

1. 0003-05 

1.0009*01 

160007 

LITE 

1.000360" 

160008 

LITE 

7 

-1 

2 

160009 

LITE 

1.000360"- 

1  • 0003*00 

160010 

LITE 

0.0003600 

1  • 0003*00 

160011 

LITE 

4 

1 

2 

2 

20 

160012 

LITE 

8.0003-01 

160013 

LITE 

1.0003600 

0. 0003*00 

160014 

LITE 

3.1823600 

0 • 0003*00 

160015 

LITE 

9.7463-OT 

9.4073-01 

9.2203-01 

8.9443-01 

e. 6603-01 

8.3669-01 

160016 

LITE 

8. 0633-01 

7.7463-01 

7.4163-01 

7.0713-01 

6.7093-01 

6.3259-01 

160017 

LITE 

5.9153-01 

5.4703-01 

5.0003-01 

4.4723-01 

3.8733-01 

3.  1629-01 

160018 

LITE 

2.2353-01 

0.0003*00 

160019 

LITE 

*> 

20 

20 

160020 

LITE 

1 

2 

3 

4 

5 

6 

160021 

LITE 

*7 

8 

9 

10 

11 

12 

160022 

LITE 

n 

14 

15 

16 

17 

18 

160023 

LITE 

19 

20 

160024 

LITE 

9.0003-01 

0.0003-01 

7.0003-01 

6.0003-01 

5.0003-01 

4.0009-01 

160025 

LITE 

3.0003-01 

2.0003-01 

1.0003-01 

0.0003600- 

1.0003-01- 

■2.0009-01 

160026 

LITE 

3.0003-01- 

•4.0009-01- 

■5.0009-01- 

-6.0003-01- 

7.0003-01- 

8.0009-01 

160027 

LITE 

9.0003-01- 

■1.0003*00 

160028 

LITE 

6 

5 

160029 

LITE 

1.0003-01 

0.0003*00 

2 

9.0003604 

160030 

LITE 

1.0003-01 

5.0003*01 

2 

9.2503604 

160031 

LITE 

1.0003-01 

1.5003*02 

2 

1.1253605 

160032 

LITE 

1.0003-01 

3.0003*02 

2 

1.8003605 

160033 

LITE 

1.0003-01 

5.0003*02 

2 

3.4003605 

160034 

LITE 

7 

2 

3 

160035 

LITE 

-1 

1 

0.0003*00 

160036 

LITE 

? 

1 

3.0103*02 

160037 

LITE 

1  1 

1  0.00 

1  2 

160038 

LITE 

2  7 

1  1.00 

-1  1 

2  3 

160039 

LITE 

3  1 

1  0.00 

-2  2 

160040 

LITE 

n 

1 

160041 

LITE 
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TABLE  XI.  (CON'T) 

0 

0 

1.0003600 

160042 

LITE 

9 

23 

160043 

LITE 

0.00340" 

Q.OOOiitOO 

1 .0003600 

1.0003600 

160044 

LITE 

s.ooaco" 

3.0003-0 2 

l .0003600 

1.0003600 

160045 

LITE 

10.003400 

5.8403-02 

1 .0003600 

1.0003600 

160046 

LITE 

15.003C0O 

8.0003-02 

1.0003600 

1.0003600 

160047 

LITE 

2o.ooaco" 

1.0903-01 

1.0003600 

1.0003600 

160048 

LITE 

30.00340" 

1.5503-01 

1.0003600 

1.0003600 

160049 

LITE 

35.003C0O 

1.7533-01 

1.0003600 

1.0003600 

160050 

LITE 

40.003400 

1.9603-01 

1.0003600 

1.0003600 

160051 

LITE 

50. ooacoo 

2.3003-01 

1.0003600 

1.0003600 

160052 

LITE 

60.00340" 

2.6503-01 

1.0003600 

1.0003600 

160053 

LITE 

to. ooacoo 

2.9503-01 

1.0003600 

1.0003600 

160054 

LITE 

eo.ooaco" 

3.2003-01 

1.0003600 

1.0003600 

160055 

LITE 

9o.ocaco" 

3.3503-01 

1.0003600 

1.0003600 

160056 

LITE 

lo.ooacoi 

3.5503-01 

1.0003600 

1.0003600 

160057 

LITE 

12.503401 

3.9253-01 

1.0003600 

1.0003600 

160058 

LITE 

15.003C01 

4.1903-01 

1.0003600 

1.0003600 

16G059 

LITE 

17. 503401 

4.4103-01 

1.0003600 

1.0003600 

160060 

LITE 

20. 003C0T 

4.5803-01 

1.0003600 

1.0003600 

160061 

LITE 

22.503401 

4.7003-01 

1.0003600 

1.0003600 

160062 

LITE 
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planes  301  units  apart.  The  upper  and  lower  regions  were  given  an 
importance  number  of  zero,  so  that  particles  entering  those  regions 
would  be  terminated.  The  source  was  located  at  a  height  oi  300 
units  above.  the  ground 

The  output  for  the  LITE-1  problem  is  ’isted  in  Table  Xll  Tne 
first  ten  pages  of  Tabic  XJ I  list  the  scattered  intensity  as  a  func¬ 
tion  of  collision  number  for  each  of  the  receiver  points  and  each  ot 
the  ten  history  groups.  The  eleventh  page  of  Table  XII  contains 
averages  of  the  scattered  intensities  over  the  ten  history  groups 
The  twelfth  page  of  Table  XII  gives  the  deviations  of  the  group  in¬ 
tensities  about  the  average  intensities  over  all  the  groups. 

On  the  thirteenth  page  of  Table  XII,  the  history  termination 
counters  give  the  number  of  histones  terminated  after  exceeding  the 
maximum  number  of  collisions  allowed,  by  escaping  the  atmosphere,  and 
by  the  particle  weight  dropping  below  the  input  weight  cutoff  valuc- 
The  thousand  histories  produced  11,901  collisions  which  is  an  average 
of  11  901  collisions  per  history  in  pages  iA  through  23  of  lable 
XII,  the  angulac  distribution  oi  the  scattered  intensities  are  given 
as  a  function  of  the  order  of  reflection  for  each  receiver  point 
The  cosine  values  listed  on  these  pages  are  the  cosines  of  the  angre 
measured  from  che  source-receiver  axis  for  each  of  the  receiver  posi¬ 
tions  Page  2^  of  Table  XII  shows  the  scattered  intensities  as  a 
function  of  the  region  of  scatter  Page  25  ot  Table  XU  gives  the 
reflected  intensity  at  each  of  the  receivers,  and  the  last  page  of 
Table  XII  gives  the  direct  Intensity  at  each  of  the  receivers  The 
units  of  the  intensities  competed  for  the  LITE-I  sample  problem  are 


(Text  continues  on  page  52.) 
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photons/unit  area  pet  source  photon  where  t'  e  unit  area  is  in  the 

arbitrary  units  used  to  define  the  thickness  or  the  "’tmosphere.  If 

one  assumes  that  the  thickness  of  the  atmosphere  is  30  KM,  chen 

-8 

multiplication  of  the  intensities  given  in  Table  XII  by  10  would 
result  in  intensities  that  have  units  of  photons  cm  ^  per  source 
photon. 

In  order  to  compare  the  results  of  this  sample  problem  with 
transmission  data  for  a  normal  incident  broad  beam  source,  the  re¬ 
flected  intensity  at  each  receiver  should  be  subtracted  from  the 
total  scattered  intensity,  since  the  total  scattered  intensity  in¬ 
cludes  the  intensity  reflected  from  the  ground  surface.  The  differ¬ 
ences  should  then  be  plotted  as  a  function  of  the  radial  position 
of  the  receivers  and  this  radial  distribution  integrated  over  the 
plane  containing  the  detector  points  to  give  the  transmitted  in¬ 
tensity  for  radiation  incident  normal  to  the  atmosphere. 

4.2  LITE- I I  Sample  Problem 

The  LITE-II  sample  problem  was  designed  to  calculate  the 
angular  distributions  of  the  scattered  intensities  at  several  depths 
in  a  Rayleigh  atmosphere  of  0.5  mean-f ree-path  in  thickness  and  with 
a  ground  albedo  of  0.8,  dje  to  a  plane  source  incident  at  9q  =  cos  ^0.6. 
Table  XIII  shows  the  input  data  for  the  LITE-11  problem.  A  total  of 
2000  histories  were  divided  into  ten  groups  of  200  histories  each, 

A  maximum  of  20  collisions  were  allowed  for  each  history  The  atmo¬ 
sphere  and  ground  reflection  distribution  is  defined  in  the  same 
manner  as  in  the  sample  problem  for  LITE-l. 
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Four  receiver  planes  were  placed  within  the  atmosphere  at  alti¬ 
tudes  of  0.1,  100,  200  and  299  units  above  ground  level  The  lower 
receiver  plane  is  sufficiently  close  to  the  lower  surtace  ot  the  at¬ 
mosphere  to  record  the  scattered  intensity  transmitted  through  the 
atmosphere-  The  upper  plane  is  sufficiently  close  to  the  upper  sur¬ 
face  to  record  radiation  emerging  from  the  top  of  the  atmosphere 
The  output  for  the  LITE-II  sample  problem  shown  in  Table  XIV  is  in 
the  same  format  as  that  previously  shown  for  the  LITE-I  sample  problem^ 

To  obtain  the  transmitted  intensity  from  the  data  printed  ior 
the  first  receiver,  only  those  intensities  listed  for  those  cosine 
intervals  with  lower  bounds  ranging  from  -0:1  to  -1.0  should  be  con¬ 
sidered.  Tie  intensities  given  for  those  cosine  intervals  with  lower 
bounds  ranging  from  0.9  to  0  0  are  mainly  comprised  of  the  intensity 
?'eflected  from  the  ground  surface  and  would  not  be  transmitted  through 
the  lower  surface  of  the  atmosphere.  The  intensities  given  in  Table 
XIII  for  the  last  receiver  position  that  fall  in  cosine  intervals 
with  lower  bounds  between  0.9  to  0.0  are  the  intensities  emerging 
from  the  top  surface  of  the  atmosphere.  The  units  of  the  LITE-II 
computed  intensities  are  photons/unit  area  per  source  photon/unit 
area,  where  the  unit  area  is  parallel  to  the  top  of  the  acmosphere. 


*  ^  * 

•i  ^g  ^g  O  eg  co 

g  g  g 

2 

m4 

O 

o  o  o  p*  *-« 

o  o  o 

5 

t- 

(0 

1  1  1 

1  1  1 

Q 

O 

Cl 

Cl  Cl  (1 

ri  ci  ci 

o 

*0  it  eg 

o  o  o 

£ 

o 

vQ  rg  -o 

o  o  o 

pv. 

o 

^g 

o  o  o 

g 

• 

•  •  • 

•  •  • 

M 

H 

CO  -0  CO 

*  eg  oo 

£ 

o  *g  ^ 

ITS 

O  g  gg  i/>  ^g  e- 

i  i 

g  g  g 

eg  eg 

o 

eg  O  o  o  pg  pg 

o  o  o 

CQ 

ITS 

1 

1  1  1 

1  1  1 

8 

4* 

Cl 

Cl  Cl  Cl 

ci  ci  r  3 

X 

m 

o 

o  O'  pn 

o  o  o 

o 

-O  O  h- 

o  o  o 

M 

o 

gj  n  co 

o  o  o 

3 

• 

•  •  • 

•  •  • 

*4 

CO  >0  P0 

i/>  pg  e- 

•  i 

eg  eg  pn 

eg 

eg  g  g  g  o  >o 

i  i 
~g  O  ~g 

-r-r-r-t 

pn 

o 

CO 

O' 

o 

O  O  O  ^g  ^g 

O  O  O 

o  o  o  o 

o 

jxj 

1 

1  1  t 

1  (4  I 

<4  (4  (4  to 

<4 

Q 

>0 

ll 

Cl  Cl  Cl 

Cl  Cl  Cl 

Cl  Cl  ci  Cl 

(1 

O 

eg 

o 

*  *g  eg 

o  o  o 

o  o  o  o 

o 

o 

o 

*  e-  r* 

o  o  o 

o  o  o  o 

eg 

o 

o 

O'  o 

o  o  o 

o  o  o  o 

o 

M 

t 

•  •  • 

•  •  • 

III! 

• 

1 

co  r-  * 

-0  0-0 

O'  O'  O'  O' 

g 

W 

1 

H 

I^HH 

pn  eg 

eg  h  h  h  o  O'  i/> 

g  g  g 

eg  eg  eg  eg  pn 

0 

2 

2 

1 

2 

M 

,  i 

1  Wf> 

o 

O  O  O  eg  pg 

o  o  o 

o  o 

H 

* 

i 

1  1  1 

1  I  1 

<4  (4 

O' 

(i 

<1  Cl  Cl 

Cl  <1  Cl 

(1  Cl 

• 

m 

o 

0-0  0 

o  o  o 

o  o 

M 

o 

pg  g  o 

o  o  o 

O  g  g  g  eg 

H 

M 

o 

eg  *  o 

o  o  o 

O  O  II 

x 

• 

•  •  • 

•  t  • 

•  i 

pg 

o  Me 

n»  *g  in 

O  ff) 

a 

o  o  o  ^ 

pn  g  h  o  g  oohhhoon«^o 

1 

g  gg  O 

4 

0 

0 

0 

0 

2 

1 

1 

0 

0 

0 

^  o 

9 

pg  eg  *g  eg 

O  1  o  o 

OOOOOOeg  ^  eg  o  O  O  O 

o  o  o  o 

o  o  o 

H 

pn 

<4  t  <4 

<4  <4  1  |  t  <4 

1  •  1  w 

tO  <4  W  tO 

t  t  t 

h- 

Cl  (1  Cl 

Cl  ci  Cl  Cl  Cl  Cl 

Cl  Cl  Cl  Cl 

Cl  Cl  Cl  Cl 

0^0 

CD 

o  o  o 

OON  OCOO 

o  o  o  o 

c  o  o  o 

o  o  o 

OOCO^hO 

o  o  o  o 

o  o  o  o 

1 

1 

1 

o  o  o 

o  o  *  e-  4*  o 

o  o  o  o 

r  o  o  o 

•  ft 

•  •!••• 

•  •  t  • 

•  •  t  i 

lf\  g)  pg 

OOO'MPO 

co  rg 

J  o  o  o 

H  o  c  r  rr 

| 

<v  fv  c  r  r~  c 

grCr  »-g»-r  ic  O 

1  1 

*-  r-  ** 

c  r-  w  tv  e  r* 

ge  gr  g«r  p 

O  eg  >r 

o  o  o  o 

ooooooo  pg  *g  o  o  o  o 

o  o  o  o 

1 

O  h- 

(4  (4  I  t4 

1  (4  |  |  }  |  | 

1  1  1  1 

|  tO  (4  to 

eg  -O 

Cl  Cl  Cl  Cl 

(1  Cl  Cl  Cl  Cl  Cl  (1 

Cl  Cl  (1  Cl 

Cl  Cl  (1  Cl 

pn 

o  o  o  o 

O  O  <M  -O  Pn  t/>  t/> 

o  o  o  o 

o  o  o  o 

O  O  O  Q 

o  o  co  4*  -o  g  m 

o  o  o  o 

O  O  O  O' 

o  o  o  o 

OOgNO^eg 

o  o  o  o 

O  O  o  O' 

t  t  •  1 

•  •••••• 

•  •  t  • 

•  t  #  • 

rr\  O  O 

co  *g  pn  O'  co  i/>  eg 

O'  pp|  rn  O' 

h  g  pg  (g 

I  I  I 


T 


55 


i 


i|l  111  III  111  III  .it  HI  111  ill  ill  III  til  HI  III  ill  III  III  111  1^  LLi  LL1  LU  LLI  HI 


oooooooooooooooooooooooo 

OOOOOOOOOOOOOOOOOOOOOOOO 

’^'O'O'O'O'O'O'OO'O'O'C'O'O'O'O'O'O'O’O’O'O'O'O 


5 

(J 


u 

3 


o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

m 

w 

to 

to 

to  w 

to 

to 

to 

to 

tO 

to 

to 

to 

to 

to 

to 

tO 

tO 

to 

IO 

to 

to 

e 

<* 

(1 

<* 

(i  m 

m 

n 

r» 

ca 

m 

(1 

<1 

m 

m 

m 

m 

<1 

m 

(1 

m 

<* 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

oooooooooooooooooooooooo 

ooooooooooooooooooooooo 

(J^Uu)b)Uu}u}i4ujcjcJu)u)u}u3Uu}Ou}gu}u) 

ooooooooooooooooooooooo 

ooooooooooooooooooooooo 

ooooooooooooooooooooooo 

oooooooooooooooooooooooo 
«*9  i  t  t  i  i  i  i  i  i  i  i  i  )  i  i  i  i  i  i  i  i  i  *o 

ooooomooooooomoooooooo 

oo'roo'^iA^oiriAoiriniN^^vo^oiro 

oooooinr-a'fn-o^fM^mo'^^irir-h-aooo 

p  CC  CC  CC  C  t  CC 

ooooooooooooooooooooooo^ 

u;ggg^jguu)u]gu)godguiJu)^u)vj(J 

ooooooooooooooooooooooo 

ooooooooooooooooooooooo 

«•*«•••••  •  *  I  I  I  I  I  (««*«*  • 

oooooooooooooors*or»orgor-oo 

^^pgmn'j’^'Or-flQO'^^^^rjNNN^iri 


TABLE  XIV.  PRINTOUT  FOR  LITE-II  SAMPLE  PROBLEM  (24  PAGES) 


56 


CL 

z> 

o 

QC 

o 

o 


41 


:» 

UJ 

o 

1C 

3 


cr 

c 

H- 

C 

UJ 

- 

UJ 

o 


-»J 

X 


u 


y> 

3 
— ♦ 
■O 


_l 

3 

O 


w4 

•■4  *H 

cv 

cv 

cv 

cv 

ro 

ro 

ro 

ro 

ro 

ro 

* 

<r 

o 

o 

c 

e  c 

o 

c 

o 

c 

c 

C 

C 

C 

C 

C 

C 

c 

o 

c 

o 

c 

c 

1 

1 

a  i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

a 

a 

a 

<1/ 

X 

x  x 

X  X 

X 

X 

X 

X  X 

X  X 

X 

X 

X 

X 

X 

X 

X 

X 

o 

N» 

>o 

'O  'O 

N- 

in 

m 

^  O' 

O  (f> 

HJOO 

ro 

O' 

o  m 

O' 

N* 

O 

c 

o  o 

O' 

cv 

o 

«*H 

ro 

'O  O' 

CO 

'O 

O' 

OC 

in. 

•H 

CO 

•H 

ro 

w4 

^  CVJ 

in 

O  K* 

ro 

N» 

o 

O' 

O' 

CV 

o 

^4 

O' 

O' 

«-4 

30 

«-4 

cr 

c 

<  <s 

cv 

m 

* 

•»* 

cv 

K 

ro 

ro 

K 

c 

ro 

c 

IT. 

• 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

9 

• 

• 

• 

• 

• 

O 

o 

ro 

AJ  tH 

•-4 

O 

CV 

wH 

X> 

n 

ro 

CV 

*-< 

r* 

V. 

=r 

cv 

•H 

30 

w-l  ^4 

v-» 

CV 

CV 

cv  cv 

ro 

ro 

ro 

ro 

ro  ^ 

O' 

o 

K* 

o  o 

o  o 

o 

o  o 

o  o  o  o 

o  o 

O 

o 

O 

o  o 

o 

o 

o 

1 

1 

i  a 

1 

1 

1 

1 

1 

1 

a 

1 

a 

1 

1 

1 

a 

a 

a 

a 

+ 

O' 

?o 

X 

x 

X  3/ 

3. 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X  X 

X 

X 

X 

ro 

o 

in  'O 

O  ^ 

O 

O  K» 

*■4 

K* 

ao 

ro 

K. 

in 

in 

in  c 

o 

o 

co 

CVI  K. 

CV 

VO 

c 

in 

<t 

CO  >© 

ro 

ro 

o 

ro  cc 

CO 

'O 

e 

VO  o 

iD  N- 

e 

ro 

'O 

CV 

ro  in 

oo 

O 

ro 

^4 

Xj 

ro  ji  > 

in 

in 

n 

o 

o  n 

■o 

O' 

V 

-o 

5* 

n  O' 

5* 

vO 

o 

CV 

rv 

o 

* 

-o 

o 

•«4 

o 

-4 

CO 

<r 

ro  *h 

CO 

ro 

cv 

- 

co  in 

ro 

CV 

cv 

•H  CO 

ZX  cv 

w4 

cv 

cr 

o 

•1  «H 

*-H 

CV 

cv 

cv  cv  cv 

CV 

ro 

ro 

ro 

ro 

ro 

■5» 

o 

— / 

*— 

o 

o 

o  o 

o 

o 

o 

o  c 

o 

o 

O  O 

O 

O 

o 

o  o 

o 

o 

o 

< 

+ 

i 

1  1 

1 

1 

i 

1 

1 

a 

1 

1 

1 

1 

1 

1 

a 

a 

a 

a 

♦ 

cr 

CVI 

x 

1  1 

X 

X 

1 u 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

jj 

o 

cc 

*-H  «-i 

in 

m 

Ti 

ro 

frH 

o 

ro 

rc 

o 

N- 

•-« 

o 

>c 

in 

ro 

? 

o  c 

N.  O' 

in 

in 

•-4 

'C 

c 

o 

O' 

:v 

cv 

«-4 

o 

cr 

30 

O 

n 

aJ 

u: 

in 

o  ^ 

CO 

rt 

*-H 

in 

ro 

ro 

>o 

JO 

o 

cv 

ro  ro 

CO 

in  c 

m 

O 

o 

o  ro 

in 

*n 

N. 

w4 

<c 

cv 

in 

in 

o 

JO 

in 

• 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

o: 

WH 

fO  cv 

o 

in 

fO 

«-H 

H 

ro 

ro 

cv 

*■4 

*-H 

ro  CV 

cv 

•H 

cv 

Ui 

00 

£ 

o 

fH 

«-h 

cv 

CV 

CV 

CV 

CV 

O 

ro 

ro 

no 

ro 

cr 

•3* 

in 

o 

o 

o 

o  o 

Q 

o 

c 

o 

o 

c 

o 

c 

O 

>-v 

O 

C 

o  c 

o 

o 

o 

+ 

i 

1  1 

1 

1 

a 

t 

1 

1 

1 

1 

1 

• 

1 

1 

a 

i 

a 

a 

+ 

£. 

X 

X 

x  x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

o 

o 

•H  ^3* 

«— 4 

ro 

>o 

>c 

>o 

CV 

O' 

cv  cv 

ro 

o 

«H 

2 

n 

o 

o 

N. 

O' 

O 

o 

n 

ro 

wH 

nO 

cv 

o 

cv 

o  o 

m 

K» 

O 

QC  l/> 

cv  m 

o 

o 

o 

o 

•H  ^ 

"O 

o 

ro 

r*w 

ro 

O' 

m 

in 

x 

in 

c 

o 

O 

o 

-4  CO 

o 

o 

ro 

CV  ro 

ro 

O' 

ST 

cv 

N-  O' 

cv 

o 

o 

z 

• 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

X 

n  wh 

fH 

O 

ro 

n 

H 

fH 

f— 1 

*o 

ro 

ro 

r 

r 

-J 

•-H 

CV 

m  xx 

NO 

N. 

r 

> 

o 

tv 

ro 

m 

>o 

X 

O 

o 

<x 

•H 

H 

•H 

^4 

fH 

VJ 

H- 

Ui 

a  m 

i-  <i 


x 


FLlMtS  FUrt  DFVI'TION  firtOUH 


57 


a 


«-4 

CM  CM 

CV 

CM 

CM 

CT 

CM 

rr 

m 

rr 

d 

d 

d 

d 

« 

d 

c 

c 

c  c 

c 

c  c 

c 

C 

C 

C 

C 

c 

c 

C 

© 

c 

C 

© 

c 

C 

c 

• 

1  1 

1 

1  1 

I 

f 

» 

1 

1 

i 

1 

1 

1 

1 

• 

1 

» 

« 

♦ 

d 

X  X 

X 

X  X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X- 

X 

X 

x 

O  CO 

O  i T 

SO 

O  CM 

o 

N. 

<r 

>C 

in 

rr  cm 

CM 

o 

o 

ac 

fw 

fs- 

A 

SO 

in 

G 

o 

O  so  CO 

O  lO 

c 

d 

sO 

o* 

o 

in 

d 

o 

C 

K 

C 

fs- 

<t 

►- 

m 

t)  N 

CM  C 

If' 

<r 

d 

o 

IT 

•-4 

CM 

c 

rn 

'O 

o 

A 

N* 

C 

X 

C  <* 

cv 

d  u 

c 

X 

cv 

>4. 

s* 

a 

A 

X 

*■“ 

o. 

a 

m 

*- 

IT 

IT 

w 

• 

•  • 

• 

•  » 

• 

V 

• 

• 

• 

• 

• 

• 

9 

• 

• 

• 

• 

• 

• 

sO 

— 

n 

■*1  A 

M 

r  n 

d 

M 

a; 

> 

•-4 

n 

CM 

c 

O 

rr 

A' 

d 

*-4 

d 

u> 

A 

o 

■-*  «-4 

^  CM 

CM  CM 

A 

cm  <n 

rr  rr 

m 

rr  d 

d 

d  d 

d 

O 

rr 

o 

o  o 

o  o  o  o 

O 

O 

c 

o 

© 

O  O  ©  O  O 

o  o 

o 

© 

rr 

1 

1  1 

• 

1  • 

1 

• 

1 

i 

9 

1 

1 

1 

i 

1 

k 

1 

1 

i 

+ 

d 

X 

X  X 

X 

X  X 

X 

X 

X 

% 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

O 

a  so 

>  o 

V. 

d  so 

*—• 

m 

n 

o 

d 

x>  n 

o 

O 

rr 

—•  o 

o 

a 

so  cv. 

o 

d  m 

c 

* 

d 

fO  IT 

<- 

CM 

m 

o 

in 

in 

A 

CM  vC 

CM 

Xt 

CM 

rvj 

> 

> 

;n 

rr 

C 

o 

d 

rr 

rr 

O 

a* 

jo 

if) 

A  d 

d 

A  X 

\l  5 

n 

© 

n 

■o 

o 

A 

> 

n 

d 

> 

o 

<D 

^  (\l 

^  lT 

d 

CM 

CM 

K. 

vO 

rr 

CM 

ac 

d 

d 

A  d 

m-i 

rt 

—4 

•-H 

»—4 

A 

A 

A 

(V‘ 

A 

rr 

«r 

rr 

rr 

rr 

rr 

rr 

d 

e 

i— 

c 

o  © 

© 

© 

G 

O 

© 

o 

© 

© 

c 

C 

C 

© 

© 

O 

© 

© 

c 

<r 

1 

1 

1 

• 

1 

1 

1 

» 

I 

1 

1 

i 

1 

• 

I 

1 

1 

1 

1 

1 

«► 

QC 

A 

X 

X 

X 

i 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

i 

X 

X 

X 

X 

X 

jJ 

O 

r 

X 

A 

rr  A 

iT 

s. 

> 

vC 

A 

n 

«-4 

©> 

A 

it 

d- 

d 

m 

A 

z 

>o 

A  X> 

fSw 

sO 

X, 

,r 

»n 

A 

O 

m 

© 

JO 

t> 

Js 

ijj 

X) 

rr 

in 

© 

tv 

x: 

iT 

*— ■ 

i r 

X 

A 

A 

o 

rr 

sO 

«-* 

o 

o 

rsw 

jr 

© 

i> 

o 

^S 

o 

in 

> 

> 

<3 

n. 

r- 

n  > 

o 

«d 

X/ 

rr 

• 

• 

• 

• 

« 

* 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

« 

• 

• 

X 

> 

A  A 

x» 

in  ^ 

rr 

«~4 

X> 

O 

n 

rr 

^  A 

«-»  tn 

>S^ 

d 

A 

uJ 

10 

o 

W— 4 

T“t 

W-I 

•-4 

CM 

A 

A 

A 

rr 

*r 

rr 

rr 

^r 

rr 

<d 

-d 

d 

© 

z 

c 

© 

c 

O 

© 

© 

c. 

c 

c 

© 

© 

© 

© 

o 

© 

© 

© 

O 

c 

© 

© 

+ 

ft 

ft 

1 

1 

1 

• 

t 

1 

1 

1 

1 

i 

1 

ft 

ft 

ft 

• 

ft 

I 

♦ 

X 

X  X- 

X 

X  X 

X 

A 

X 

X 

X 

X 

X 

i 

X 

X 

1 

X 

X 

X 

X* 

C/ 

J~\ 

JJ 

rn 

JJ 

m 

SC 

m 

A 

o 

«J 

© 

o 

cr 

n. 

N- 

© 

r- 

N. 

JL 

X*) 

A 

rr 

n 

r^r. 

S- 

> 

o 

X' 

f\ 

> 

^5 

if 

d 

3 

rr 

o 

<T 

< 

© 

c 

•— 

© 

rr  jo 

'T  JO 

© 

w~* 

IT. 

O 

A 

^  o 

40 

A 

rr  o 

if 

A 

X) 

A 

»-4 

n 

•o 

^r 

o 

sO 

rr 

A 

Z 

• 

• 

• 

• 

• 

• 

• 

• 

* 

• 

• 

• 

• 

• 

• 

• 

• 

■ 

» 

• 

• 

d 

O  JT 

A 

*— 4 

X/ 

3* 

A 

> 

n 

"T 

•d* 

*-» 

s. 

if 

X 

-i 

X 

.© 

A  m 

o 

X. 

> 

Zj 

A 

*sr 

i' 

o 

s* 

© 

© 

< 

«-4 

W— 4 

•-* 

■-H 

•»« 

A 

►  - 

uJ 

3  i/j 

H-  < 

X 


FLUXLS  FUR  DEVIATION  GROUP 


58 


rr 


a 

c 

bJ 

UJ 

o 


</D 

k: 

o 

</D 


O 


nr* 

fH 

c\ 

CV 

t\  <v 

CM  ro 

ro 

ro  ro 

ro  <x 

c 

<r 

O 

c 

c 

c 

C 

c 

c 

c  c 

c  c. 

O 

C  O  C 

O 

O 

c 

O 

c 

O 

C 

I 

1 

1 

1 

1 

9 

3  3 

1  1 

1 

1  1 

f 

1 

1 

9 

1 

1 

9 

♦ 

<r  at 

d 

d 

<L 

Mr 

Mr 

Mr  <Mr 

(if  Mr 

Mr 

CL  <L 

Mr 

<L 

OL  <L 

<L 

<L 

Qt 

at 

o  o 

0  ro 

>c 

0 

O 

O  O 

c  or 

ro  0  uo  n- 

C> 

^H 

ro  c> 

N-  X 

ro 

n 

X 

fH 

OD 

N- 

c\ 

O 

K.  CM 

<  0 

0 

CV 

O 

^H 

Pw 

O 

n 

a 

X 

flj- 

O 

X 

rt 

ro  N- 

l>  CV 

X  ro 

0 

ft 

x> 

>C 

N» 

x 

0 

c 

K 

c\ 

ir 

c 

rr 

f- 

0 

O  C\ 

* 

K 

IT 

CV 

C 

a 

CL* 

• 

• 

• 

• 

• 

• 

*  • 

•  • 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

O 

X) 

sr 

CM 

f* 

> 

n 

CV  CM 

X) 

n 

*o 

*-H 

n 

ro 

f-H 

^H 

•H 

ro 

*-* 

fH 

fH 

fH 

CM 

CV  CM 

cm  <n 

ro 

ro  ro 

ro 

*t 

<=* 

O 

CM 

o 

O  O 

O 

O 

C 

O  O 

0  0 

0 

O  O 

O 

OOO 

O 

0 

0 

O 

I 

I 

1 

1 

1 

1 

1  1 

i  1 

9 

1  1 

1 

1 

1 

1 

1 

1 

1 

4* 

X 

o  d 

Mr 

Mr 

If 

Mr 

Mr 

Mr  Mr 

Mr  It 

d 

X  sh 

Mr 

1 

Mr 

Mr 

1 

Mr 

cl 

d 

n 

O  iT» 

rr\ 

ro 

*t 

n 

ro 

ro  O 

c\  0 

> 

vO 

fH 

*w 

^H 

n-  in 

n 

ro 

fH  |/\ 

cc 

^  CM 

O  ro 

CM 

>0  <r 

O 

ro  CV 

N* 

ro 

0 

O 

>0 

<\ 

CV 

N- 

0 

CM  O 

ro  in 

tH 

O  ro 

ro 

>0 

O 

O 

ao 

O 

^H 

fH 

n 

>0 

n 

O 

-O 

O 

«-*  n 

fH 

jo 

^H 

O 

O 

O 

X 

-H 

>0 

ro 

fH 

fH 

m 

ro  CM 

fH  K 

SO 

ro  CM 

CM 

X) 

<t 

fH 

•H 

fH 

X 

fH 

fH 

fH 

fH 

fH 

tv 

CM  CM 

CM  CM 

<0 

ro  ro 

no 

ro 

O 

H- 

O 

O 

O 

O 

O 

c 

O  O 

O  O 

O 

O  O 

O 

O 

O 

O 

O 

0 

O 

O 

< 

I 

I 

I 

I 

1 

1 

•  • 

1  1 

1 

•  1 

• 

1 

1 

1 

1 

1 

1 

♦ 

X 

Ai  it 

1 

i 

Mr 

Mr 

It 

ir  Mr 

If  Mr 

t 

V  Mr 

L 

Mr 

Mr 

Mr 

M * 

t 

If 

C 

O 

CM  fw 

CL 

t  <•  X 

ro  O' 

N. 

(V  CM 

n 

0C 

*H 

iT 

X 

fH 

ro 

O 

00 

O 

fH  in 

n  ro 

n-*  Pw 

ro 

N*. 

X) 

fH 

zt 

K* 

<r 

hJ 

** 

ro 

CM 

0  c 

02  CV* 

O 

^  CV 

O 

n 

CM 

CV 

n 

X 

N* 

O 

N» 

<w 

ro 

O 

ro  .> 

.M  O 

IM 

fH 

^H 

^  CM 

n 

•M 

fY* 

30 

no 

00 

fH 

O 

^  CM 

fH 

X) 

ro  CM 

fH 

fH 

X) 

0 

sO 

CM 

%H 

CV 

LiJ 

an 

O 

fH 

rH 

ff 

fH 

ro 

CM  CM 

CM  CM 

ro 

ro  ro 

ro 

ro 

ro 

no 

O 

X 

O 

c 

O 

O 

0 

O  O 

O  O 

O 

O  O 

O 

O 

O 

C 

O 

O 

0 

c 

3 

+ 

1 

• 

1 

• 

1 

•  1 

1  1 

1 

1  1 

• 

t 

1 

1 

1 

1 

1 

4* 

k' 

<5, 

at 

at 

Mr 

d 

at 

•Mr  <Sr 

Mr  d 

(9, 

Mr  Mr 

'Mr 

d 

vL 

Mr 

Mr 

d 

M> 

l 

O  > 

i\ 

cm 

CM 

JT\ 

0 

ro  ro 

O 

JO 

Cm  hw 

O 

f-H 

<0 

> 

O 

n  no 

10 

X 

> 

rw 

-X) 

ro 

ct 

0 

O  ro 

N-  O 

> 

^  co 

in 

> 

O 

*  M 

CM 

nC 

3 

f^ 

•>  N* 

O 

CM 

n  0: 

ro  in 

m 

x>  0 

0 

O 

n 

fH 

CV 

no 

C 

O 

•H 

ro  ft 

in 

(M 

> 

^  V 

ro  O 

0 

*  cvj 

>0 

> 

0 

n 

N* 

2 

• 

• 

• 

• 

• 

• 

•  • 

•  m 

• 

•  • 

m 

• 

• 

• 

• 

• 

• 

e 

<X 

fH 

n  0 

CM 

fH 

K.  ro 

CV  O 

X)  ro 

CM 

^H 

O 

AJ 

0 

rv 

X 

y> 

X. 

3 

^H 

CV 

ro 

m 

<r 

XJ 

0  0 

CM  ro 

n 

c 

X) 

f-f 

<w 

<x 

fH 

fH 

fH 

^H 

^H 

H 

fH 

CM 

UJ 

3  m 

H-  < 


GO 


FLUXtS  FUK  OEVIiTlON  GROUP 


59 


— * 

cv 

cv 

cv 

c\ 

m 

rp» 

m 

rr  rr> 

r^i  m 

■c- 

4  P 

© 

c 

c 

C 

c 

o 

o 

c 

c 

C 

C 

C 

c  o 

c  c 

c 

c 

O 

C  C 

o 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

I 

1  9 

i  i 

• 

• 

9 

1  9 

■f 

a- 

& 

X 

X 

X 

X 

X 

X 

X 

X  X 

X  X 

X 

X 

X- 

X  X 

X 

c  ^ 

C\J  o 

N. 

X) 

a 

<r 

cc 

K 

CV 

o 

*■  K 

o 

>o 

p  p 

—4  —4 

m 

m 

o 

O 

IP 

<7 

tr 

ao 

—ft 

IP 

CC 

c 

fw 

m  up 

m  cv 

»o 

NO 

o 

CO  >c 

cv 

o 

rn 

N. 

m 

rv 

p 

-ft 

m 

o 

ft-* 

cv 

O 

o  o 

cv 

ao 

'C 

cr  cr 

o 

a 

p 

CJ 

P 

K 

fr 

< 

o 

o 

c 

c 

O  <J 

K  rr. 

P 

K 

rr,  ^ 

c 

• 

• 

• 

• 

• 

ft 

ft 

« 

ft 

ft 

« 

ft  ft 

•  • 

ft 

• 

• 

ft  ft 

ft 

ac 

<o 

rn 

NJ 

> 

>o 

^n 

\ 

> 

v. 

v. 

*— *  rn 

CV  •-* 

t? 

o 

rv  o 

—1 

> 

—ft 

ftft 

•i 

H 

OV 

rv 

rv 

cv 

CV  CO 

r*> 

m  ro 

m  m 

m  ^ 

9  p 

a 

X) 

o 

o 

O 

o  o 

o  o 

o 

o  o 

O 

o  o 

o  o 

O  O  o  o  o 

o 

X 

1 

« 

• 

1 

1 

i 

i 

• 

6 

1 

1 

1  1 

I  • 

« 

1 

1 

•  1 

+ 

N. 

«, 

a. 

X 

X 

x 

X 

X 

X 

X 

X 

X  X 

X  X 

X 

X 

X 

X  X 

B- 

o 

K» 

o 

ftft 

© 

«c 

o 

p 

cv 

m 

PN. 

■C  cv 

o  > 

rn 

30 

N. 

o  > 

IN 

o 

P>  NO 

00 

m 

cv 

N. 

P  P 

ft-t 

(V  rw 

CV  -ft 

^  o 

o 

^7 

o 

> 

CV  f\l 

Pn 

4- 

o 

* 

—ft 

>n  o 

ftw 

O  N, 

cv  o 

CV 

X>  N. 

N 

Kt. 

P 

o 

rn 

P 

T> 

o 

> 

sr 

o 

n 

> 

M  P 

p  «• 

rv  «o 

X  rj 

o 

— 

P 

(V 

**  o 

>o 

m 

cv 

h  N- 

N» 

CV  «T 

CV  — •  o 

—ft 

- 

CV  ^ 

rv 

i: 

O 

_* 

ftft 

rH 

cv 

cv 

CV 

cv 

m 

rn  m 

'n  m 

sr 

p 

o 

♦— 

o 

o 

o 

o 

O 

o 

o 

o 

c 

o 

o 

c  o 

o  o 

c  c 

© 

o  c 

© 

< 

♦ 

1 

1 

1 

1 

1 

« 

1 

• 

1 

• 

1  1 

•  i 

1 

I 

9 

1  1 

-♦» 

or 

,v 

*> 

l 

X 

# 

», 

X 

X 

«/ 

X 

X 

». 

*■  X 

X  X 

X 

X 

X 

X  X 

X 

jJ 

© 

ftft 

N. 

c 

c- 

N. 

v\ 

*c. 

c 

r> 

p 

K.  N- 

^  Ip 

IT 

m 

o  > 

p 

? 

CVJ 

rw 

o 

<r 

X* 

rn 

rw 

<n 

o  x: 

L  V 

<  > 

>  o 

K.  CV 

x. 

jj 

H 

P 

P 

p 

o 

a 

-ft 

V*  O 

o 

m  — 

o  & 

P  o 

rv  -sr 

c\ 

o 

o 

cv 

o 

—ft 

cv 

3 

<> 

m 

"O 

rn 

y'.  r- 

t  m 

P 

X. 

PN-  4* 

m 

• 

• 

* 

• 

ft 

ft 

• 

« 

V 

• 

ft 

•  • 

»  » 

ft 

• 

• 

ft  ft 

ft 

or 

••ft 

•sr 

m 

(V 

—1  p 

m 

> 

m  rn 

CV 

IV. 

nO 

—i 

cv  > 

CV 

-j 

o 

ftft 

w 

."ft 

ft-ft 

Nj 

:v 

cv 

,V 

CV 

■n 

-n  rn 

m  rn 

rn 

o 

■p 

o 

3 

© 

o 

o 

© 

o 

r-* 

c 

c 

O  C 

a  o 

o 

o 

© 

©  © 

© 

3 

+ 

1 

1 

' 

« 

1 

i 

T 

1 

1 

• 

»  1 

B  • 

1 

1 

1 

1  1 

-7 

•cl 

— <  x 

-X 

X 

•'.» 

X 

X 

X 

x 

X 

X 

1 

X  X 

X  X 

X 

X 

X 

X  X 

X 

o 

z> 

*V 

o 

a. 

VI 

4 

N. 

vC 

•-» 

cv 

r+l  Ai 

p  p 

V 

XJ 

m  C 

m 

3 

— - 

© 

o 

N 

p 

<v 

p 

P  P 

rn  to 

>c  o 

p  t> 

m 

3 

o 

O 

N. 

> 

CNJ 

cv 

o 

■X) 

■=7 

cv 

»H 

o  o 

P  CV 

—ft  or 

<7 

O  N 

n 

-© 

5T 

o 

-ft 

m 

x> 

p 

o 

o 

o 

>o 

•C  P 

rn  o 

o 

cv 

o  © 

N 

• 

* 

• 

• 

• 

ft 

ft 

ft 

ft 

ft 

ft 

ft  ft 

ft  ft 

ft 

ft 

• 

ft  ft 

ft 

4 

•-ft 

P 

p 

M 

•-• 

X) 

n 

NJ 

rv 

>  p 

<7  CV 

H 

-o 

IN. 

rn  rv 

rv 

r 

i: 

3 


— ♦CVmcjPON.  j; C  *h  (v  m  ^  /\ 

C  N-  X'  o  © 

< 

-JL. 

ft  —ft  —ft  —ft 

ftft  •— «  —ft  ftft  cv 

>— 

aJ 

3  p 

>-  < 


cc 


FLUxts  r uk  deviation  group 


T.  —  - 


60 


ft 

iP 


rr 


c. 

U‘ 

Ul 

o 


y> 

<2 

3 

-O 


3 

O 


ft* 

•-< 

CM 

cv 

CV 

CM 

CV  m 

n 

ro 

m 

m 

m 

in 

o 

c 

o 

c 

c 

C 

c 

e 

C 

e  c 

c 

c 

c 

a 

c 

c 

C 

c 

c 

c 

e 

1 

1 

1 

1 

1 

1 

i 

1 

i  i 

i 

i 

i 

» 

i 

i 

1 

1 

1 

1 

4 

9  3. 

X 

3/ 

3- 

1 

3. 

3 

X 

3  3 

X 

3 

3 

X 

3 

X 

X 

3 

X 

X 

3 

o  cm 

N» 

K 

a 

CM 

<r 

fH 

N.  in 

N- 

X 

CV 

cv 

CV: 

in 

in 

m  s. 

00 

O 

sO 

IT 

N- 

IT 

rn 

c 

c 

X  o 

O 

f— 

m 

X 

X 

o 

fT> 

CM 

o 

in 

a 

*-» 

X 

-ST 

in 

o 

>c  o 

X 

n 

s- 

X 

o 

iT 

m 

& 

fH 

cv 

*- 

O 

0 

r* 

K 

o 

cv 

N 

O  1/ 

K 

N* 

N- 

c\ 

/ 

o 

c 

c 

K 

• 

ft 

ft 

• 

• 

• 

ft 

• 

it  ft 

• 

• 

• 

• 

ft 

• 

ft 

ft 

• 

ft 

ft 

& 

■n 

CM 

•— < 

n 

rn 

Mi 

—  > 

X> 

O 

rv 

fH 

n 

CM 

n 

> 

n 

fH 

fH 

fH 

^-4 

CM 

CM 

CM 

CM  rn 

m 

rn 

rn 

m 

o 

^H 

o 

o 

o 

o  o 

a 

o 

O 

o  o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

> 

1 

I 

1 

1 

1 

i 

1 

1 

1  1 

i 

1 

1 

1 

i 

i 

i 

i 

i 

1 

4 

o 

m  3 

3, 

*•. 

3, 

X 

3 

3, 

X 

X  X 

X 

3. 

X 

X 

X 

X 

X- 

X, 

X 

X 

X 

n 

o  o 

N- 

o 

CM 

K. 

> 

c 

o  N. 

ro 

X 

n 

M 

cr 

CM 

m 

fH 

*w 

CM 

m 

o 

rn 

h- 

CV 

rn 

£ 

X  o 

X 

FO 

o 

K. 

CM 

o 

m 

m 

e 

<? 

m 

n 

£ 

o 

C- 

X* 

c  c 

rn 

CO 

n 

n  o 

fH 

<c 

o 

X 

n 

X) 

^H 

X 

o 

cr 

“M  > 

o 

X 

O 

X5 

M 

> 

> 

c 

o 

X 5 

>c 

CT) 

WH 

9-4 

s. 

no 

m 

fH 

N. 

X 

fH 

CM 

o 

cm  n 

^-4 

fH 

cr 

tH 

f^ 

fH 

a 

'v 

cv 

cv  cv 

rn 

CM 

m 

rn 

m 

cr 

o 

O 

o 

o 

o 

o 

o 

o 

c 

o  c 

o 

o 

o 

o 

o 

o 

O 

o 

o 

c 

o 

< 

1 

1 

1 

1 

1 

1 

i 

1 

1  1 

i 

1 

i 

e 

i 

1 

1 

i 

i 

i 

4 

rr 

CM  f- 

L 

X 

i 

w, 

i 

x 

x  x 

*. 

jt 

x 

X 

1 

X 

X 

X 

9> 

3 

aJ 

3  X 

X' 

o 

r 

'> 

> 

a  <s 

*1 

*r 

X 

> 

9—4 

K. 

X 

£ 

c 

C> 

X 

a 

f-H 

£ 

fH 

fH  /'i 

X 

Pw 

m 

rn 

** 

X 

n 

o 

m 

»H 

aJ 

cv 

QC 

rn 

Nta 

m 

>C 

Ch 

i-r  —* 

CM 

m 

X 

cv 

o 

c 

c 

O 

Ju 

> 

CV 

■C 

rn 

m 

rn 

.  2, 

<r 

O 

m 

IV 

CM 

f-H 

in 

« 

• 

• 

ft 

ft 

• 

• 

• 

•  • 

• 

• 

• 

• 

• 

ft 

• 

• 

ft 

• 

ft 

3c: 

K. 

m 

m 

fH 

9-4 

Z> 

rn 

fH  *H 

O 

m 

>o 

o 

•-H  lO 

9-4 

CM 

v^J 

nr 

o 

r-4 

9-4 

n-H 

r4 

cm 

cm 

CM 

CM  CM 

CM 

m 

CM 

m 

rn 

rn 

rn 

rn 

O 

X 

o 

C 

o 

c 

e 

c 

o 

C 

o  o 

O 

o 

c 

O 

f— 

c 

o 

o 

o 

O 

o 

♦ 

1 

1 

1 

i 

i 

i 

1 

1  1 

1 

i 

I 

1 

i 

1 

1 

i 

1 

1 

4 

^  3- 

3, 

X 

3- 

i 

3 

3 

X 

3  3 

3 

X 

X 

5 

! 

3 

3 

X 

3 

X 

3  «-» 

<> 

c 

> 

x 

«-H 

X> 

f-4 

>  •- 

O 

rn 

O 

>C 

n 

£> 

rn 

w 

-M 

m 

k. 

X 

fp«H 

o 

X 

fH 

»-H 

n 

in  x 

X 

rn 

o 

in 

vO 

m 

N- 

o 

O 

X 

a 

o 

4> 

o 

K- 

o 

X> 

^r 

^  o 

C' 

CM 

> 

X 

in 

o 

o 

^H  O 

CV 

o 

rj 

o 

X> 

x> 

3 

O 

o 

n  cm 

fH 

CM 

K. 

o 

CM 

X 

o 

o 

f-H 

o 

X 

z. 

• 

• 

ft 

• 

ft 

ft 

• 

• 

•  • 

ft 

• 

• 

ft 

• 

• 

ft 

ft 

• 

• 

• 

< 

9-4 

o 

rn 

AJ 

fH 

vO 

CM  CM 

fH 

n 

^H 

9-4 

»fH 

fH 

fpH 

f-H 

CM 

1C 

-J 

X 

3 

x 

f-n 

CM 

r 

</ 

K. 

£ 

>  O 

CM 

rn 

*=T 

in 

£ 

X 

o 

<! 

«-H  <HH*“H<HHf-H*"H*"H«-Hf“4f-4CM  h—  UJ 

3  y> 

K  < 

CD 


'C 

Q- 

3 

O 


or 

•H 

pH 

pH 

p- 

<v 

CV  cv 

CV  cv 

ro  »n 

m 

CJ* 

in 

o 

c 

c 

c 

c 

C 

o 

c 

o  c 

o 

c 

o  c 

c 

c 

o 

o  c 

c 

o 

c 

c 

1 

• 

1 

1 

V 

• 

9  1 

1 

• 

1  1 

t 

1 

• 

i  i 

1 

1 

i 

♦ 

z 

a- 

X 

X 

X 

X 

X 

XXX 

X  X 

X  X 

X 

X 

X 

X  X 

X  X 

X 

X 

o 

QC 

o 

<n  m 

o 

pH 

<c 

in 

9  ^ 

O  00 

P'O  p*  ® 

cv 

X  o 

m 

<y 

rv 

cn 

O 

O 

K- 

51 

a 

cc 

jn 

ph 

ro  *n 

flO 

*3 

ac  3 

c 

m  c 

cv- 

o 

m 

ro 

O 

cv 

pH 

pH 

«y 

vO  CVJ 

j\  -n 

*o  cv 

x> 

o  m 

n 

<c 

cv 

m 

«T 

o 

rr 

rr> 

f* 

c 

e*' 

^  cv 

c 

PH 

K  r* 

cv 

rr 

cv 

a  p' 

ir 

ir 

51 

r 

UJ 

• 

« 

• 

• 

• 

• 

•  • 

• 

• 

•  m 

* 

9 

• 

•  * 

• 

* 

• 

• 

in 

> 

H- 

o 

cv 

pH 

Nw 

^  rv 

PH 

n  n 

> 

30 

o  cr 

pH 

pH 

x> 

o 

UJ 

UJ 

GO 

o 

3 

pH 

ph 

«* 

pH 

H 

CV 

cv  rv 

CV 

Ou 

cn  rn 

^n 

<3-  «J- 

57 

o 

o 

o 

o 

O 

O  O 

o 

o  o 

o 

o 

o  o 

o 

o 

o  o  o 

o  o 

3 

o 

<o 

X 

• 

i 

1 

1 

• 

1 

1  1 

I 

1 

I  I 

1 

1 

1 

•  1 

1 

C 

1 

+ 

n 

3 

x 

X 

X 

X 

X 

1 

X  X 

X 

X 

X  X 

X 

X 

X 

X  X 

X 

X- 

X/ 

X 

n 

u. 

o 

o 

o 

V. 

aO  CV 

vO 

cv  <t 

o 

*-H 

cv  rn 

t> 

r*w 

OO 

3  X 

m 

cv 

© 

cv 

*5 

o 

K. 

CO 

51 

<T  O 

<3 

CV 

pH  m 

o 

<J 

o 

in 

«c 

o 

o 

o 

5l 

cv 

cr 

X)  c 

!> 

o 

o  X 

ro 

C 

rn 

c  ^ 

tn 

>o 

o 

V) 

-J 

T5 

r> 

T 

V. 

pH 

V. 

H  O 

n 

“V 

v. 

N. 

> 

n 

>  rv 

O 

n 

<c 

3C 

hH 

X 

• 

• 

• 

» 

• 

• 

•  • 

• 

• 

•  • 

• 

• 

• 

9  • 

• 

• 

• 

• 

3 

o 

rn 

CV 

pH 

pH 

K» 

m  cv 

PH 

*o  in 

PH 

o 

to 

o  cr 

PH 

pH 

pH 

w"4 

r 

-J 

a 

U 

p4 

ph 

P*- 

•— • 

CV 

Cvi  cv 

CV  CV] 

m  m 

m 

no 

no 

=r  -sy 

57 

5T 

o 

o 

O 

o 

o 

o 

c 

o  o 

o 

o 

o  o 

c 

O 

C 

c  o 

3 

o 

o 

d 

1 

1 

• 

1 

1 

1 

1  I 

1 

i  i 

i 

1 

I 

1  1 

1 

1 

R 

4* 

or 

V) 

X 

X 

X 

X 

X 

X 

\  X 

X 

X 

X  X 

X 

X 

■?-  X 

X 

t 

X 

X 

jj 

cv 

s. 

*c 

rr, 

J\ 

l r 

O  N- 

m 

a* 

in  3 

pH 

r 

n 

t*  rn 

m 

'C 

pH 

a 

2~ 

i n 

o 

* 

K. 

m  •-* 

O 

s. 

Xj  zs 

a 

> 

X>  5T 

pH 

o 

N. 

hJ 

p- 

e 

JO 

O 

C* 

cv  tr 

K* 

c 

m  n. 

K- 

o 

cv 

Sk. 

c 

o 

PH 

o 

N* 

^j- 

c 

X, 

ri 

m  fw 

o 

m 

in  rn 

<• 

c 

>  ^ 

> 

• 

• 

• 

• 

• 

• 

•  * 

• 

• 

•  • 

• 

• 

* 

•  • 

• 

• 

• 

# 

ar 

K. 

n 

cv 

ph 

5 

2 

cv 

x)  n 

CV 

pH 

5 

6 

CV 

PH 

pH 

cv 

uJ 

Ti 

£ 

o 

^H 

pH 

p* 

pH 

rv  rv 

,“V 

"O  :?n 

n 

ro 

rn 

-n  5j 

t3 

5T 

in 

3 

e 

o 

•»> 

o 

o 

3 

o  o 

o 

c 

O  C’ 

o 

C 

o 

o  c 

w 

3 

c 

D 

♦ 

I 

» 

K 

i 

1 

1  R 

1 

1 

r  i 

i 

1 

• 

i  i 

« 

1 

• 

+ 

r-«  fl. 

X 

X 

X 

X 

X 

X  X 

X 

X 

X  x 

X 

X 

.1, 

X  d 

X 

i 

X 

X 

o 

K- 

CV 

m 

9 

pH 

-n 

m  m 

— H 

X' 

O  rfi 

c 

cv 

Jj 

m  o 

vO 

r0 

pH 

Jj 

£ 

CV 

51 

-c 

K. 

5J 

k-  n 

CV  Np 

pH  CVJ 

"O 

O' 

NO 

cv 

o 

> 

ic 

> 

C 

O 

CV 

x> 

5J 

o 

o 

pH  p-4 

cv 

no  m 

N- 

in 

>c 

in  cv 

PH 

CV 

m 

O 

o 

n 

vO 

n 

-n  «r 

rv  cv 

X>  H 

rn 

-n 

m 

>o 

cr 

N> 

z 

• 

• 

• 

• 

• 

• 

•  • 

• 

■* 

•  * 

• 

• 

* 

•  • 

* 

* 

• 

• 

<1 

pH 

o 

•n 

rv 

p-4 

pH 

n  **> 

rv 

>  n 

o 

rv 

cv 

pH  ^ 

rn 

V 

CV 

X 

3 

r 

3 

J-' 

3 

a. 

pH 

wV 

rO 

1 f\ 

vU 

PN-  X# 

o 

PH  cv 

p") 

•=3 

Xi 

o  s. 

> 

o 

pH 

^H  pH 

pH 

PH 

pH 

pH  pH 

pH 

pH 

cv 

UJ 

■J 

3 

t-O 

3 

t— 

< 

U 

ao 

FlUXLS  FUK  DEVIATION  GRGuP 


62 


QC 

C. 


UJ 

3 


y> 

e 

o 

-H 

S) 


3 

o 


CM 

f\  (V 

CM 

CM 

on 

on 

cn 

p 

on 

<r 

<r 

o 

c  c 

c 

c 

C 

c 

c 

C 

C 

C 

c 

C 

c 

c 

c 

o 

c 

c 

c 

c 

c 

1 

1 

• 

1 

1 

1 

1 

1 

1 

1 

1 

9 

i 

1 

1 

i 

• 

1 

1 

1 

-♦* 

4 

X  X 

X 

X 

X 

X  X 

X 

X 

X 

X 

X 

X 

X 

X  X 

X 

X 

X 

X 

X 

o 

IP  4 

on 

X 

CM 

IP  N* 

ac 

«-•  CM' 

N. 

CM 

on  o 

<3* 

hw 

on  on 

3 

ft 

^  AC 

3 

3 

a 

p 

N. 

CM 

© 

X) 

S-  p 

N. 

o 

<T 

o 

<5 

h- 

N. 

X  © 

CM 

3 

X 

*-t 

3 

P 

© 

m 

m 

c> 

o 

c 

nC 

© 

CM  C 

P 

© 

a*  i/ 

▼■> 

on 

(V 

or 

c. 

OF 

f* 

* 

fF 

P 

* 

p 

o 

K 

K 

P 

©  on 

Pi 

3 

© 

p 

Pi 

f* 

x> 

© 

a- 

Pi 

CM 

N. 

5* 

© 

p 

Pi 

ft 

^  *H 

H 

H 

CM  CM 

CM 

CM  rn 

on 

on 

on  on 

<3* 

?r 

o 

o  o 

O 

o 

o 

O  O 

O 

o 

© 

3 

O 

O 

o 

o  o 

o 

o 

o 

o 

o 

• 

• 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

l 

1 

1 

1 

i 

1 

i 

i 

♦ 

«n 

X  X 

X 

X 

X* 

X 

X 

X 

X 

X, 

X 

x. 

X 

X 

X 

X 

X 

X 

1 

o 

00  o 

3 

o 

m 

CM  © 

on 

m  © 

© 

TO 

CM 

o 

> 

O 

o 

f*  on 

© 

o 

4  3 

•H 

4 

X 

3 

CM 

IP  N* 

3 

4 

a 

P 

OC 

o 

3 

o 

3 

on 

on 

© 

©  4 

X 

© 

3 

4 

3 

N-. 

p 

ip 

*> 

> 

on 

p 

X 

vO 

N-  3 

P 

p 

X)  M 

N* 

© 

o 

4 

3 

© 

PJ 

x> 

f-4 

fH 

p 

© 

> 

o 

4- 

3 

N-  4 

CM 

vH 

»H 

Ow 

4 

CM 

^  3 

© 

CM 

CM 

•cr 

on 

P 

CM 

ft 

*■4 

tH  «H 

fH 

<rH 

PJ 

CM 

CM 

CM 

CM 

CM' 

on 

on 

on 

<r 

P 

t^-“V 

o  c 

o 

o 

c 

O 

O 

o 

o 

o 

e 

O 

o 

o 

o 

o 

O 

O 

• 

1 

V 

1 

1 

1 

1 

1 

1 

1 

1 

i 

i 

1 

1 

i 

1 

i 

i 

1 

+ 

\ 

X  X 

X 

X 

1 

3 

* 

X 

1 

« 

X, 

X 

X 

X 

X 

c 

«/ 

3 

& 

c 

C  P 

N. 

<y 

on 

'C 

X 

P 

c 

p 

X 

fv 

V© 

ir» 

X 

o 

r 

©  cm 

3 

3 

«-4 

ft 

© 

© 

N- 

o 

y 

CM 

x> 

p 

H 

© 

m 

> 

p 

3 

«-«  e 

3 

on 

f* 

fH 

* 

© 

CM 

CM' 

p 

30 

vC 

X 

«—• 

vO 

P 

P 

N» 

a 

p 

c  *- 

P 

CM 

P 

X' 

on 

© 

4 

3 

vM 

> 

ft 

s7 

on 

0^ 

s* 

3 

N-  ^ 

CM 

CM 

»H 

3 

p 

on 

*-t 

ft 

>o 

CM 

CM 

ft 

<r 

P 

rp 

i-t 

3 

CM 

o  ^ 

•H 

ft 

H 

PJ 

\ 

CM 

CM 

on 

^n 

on 

rp 

on 

on 

<3 

a 

e  o 

O 

o 

o 

•C 

a 

O 

C 

o 

o 

c 

O 

o 

c 

3 

O 

o 

c 

o 

+  i 

1 

1 

1 

1 

i 

l 

1 

1 

1 

i 

i 

1 

1 

i 

1 

1 

i 

i 

+ 

f"1 

X  X 

X 

X 

X 

X 

X 

X 

x, 

X 

<9 

r 

X. 

X 

l 

X 

1 

X 

X 

X 

X 

o 

CM  3 

V 

0^ 

© 

3 

4 

m 

4 

M 

O 

*3 

■3 

o 

9 

3 

on 

© 

N. 

P  CM 

JO 

p 

•53’ 

ft 

p 

© 

3 

N. 

N. 

o 

on 

a 

■5? 

o 

o 

o 

X)  O 

*-  3 

N* 

4 

© 

4 

P 

3 

CM 

p 

o 

h- 

ft 

P 

ft 

p^ 

o 

«—•  N» 

no 

3 

P 

o 

—4 

© 

^  p 

>o 

Pi 

o 

PJ 

© 

ft 

p 

on 

3 

«-•  © 

on 

PJ 

H 

-i  4 

© 

© 

ft 

p 

PJ 

Pi  *> 

ft 

© 

PJ 

PJ 

-J 

*-»  p  on  4  p  ©  o*-  x>  3  o^\fr)^iT>ovi>o 

3 


RASE  ►UK  HANOOfc  Mi^BtR  GtVERATufi  IS  2288280 ^*77 


63 


x 

D 

O 


or 

94 

«-x 

9*  94 

CM  CM 

CM 

CM  CM 

CM 

m 

ro 

m  m 

ro  <r 

«? 

IT 

c 

© 

c 

c 

o  c 

c  c 

C 

c  c 

c 

c 

C 

c  c 

c  c 

© 

c 

c 

C 

© 

1 

9 

1  I 

1  9 

• 

•  1 

f 

i 

1 

9  1 

9  1 

9 

1 

9 

1 

♦ 

2 

■a 

<1/ 

9, 

X  9 

X  X 

X 

X  X 

X 

X 

X 

X  X 

X  X 

X  X 

X 

X 

X 

O 

QC 

o  eg  in 

N-  N- 

O'  9- 

no« 

©  in 

^4 

-4  <0 

CM  © 

O  CM 

o  m 

CM 

^4 

t-4 

C 

>c 

X 

K.  (O 

«c 

rv  k 

ro  o 

rO  O  © 

©  O' 

c*  © 

in 

CM 

♦— 

>- 

O 

o  in 

— •  eg 

<"0 

O  iH 

CM 

o 

in 

K  X 

^  CM 

n 

o 

o 

CM 

c 

ro 

<J 

C- 

<» 

•9- 

c 

c 

o 

o 

< 

K  O 

^  *-• 

c 

o 

c 

IT 

O 

t-4 

UJ 

9 

• 

•  • 

•  • 

• 

9  • 

9 

• 

• 

•  • 

•  • 

• 

9 

9 

• 

9 

K- 

> 

*— 

n 

eg  eg 

>  o 

94  9-f 

r4 

n 

© 

^  — 

*-«  n 

r4 

wm 

•4 

n 

UJ 

UJ 

94 

o 

o 

—t 

94 

94  *-• 

94  CM 

eg 

cm  eg 

CM 

ro  ro 

CO  fO 

* 

in 

o 

© 

o  o 

o  o 

O  O 

o  o  o 

©  © 

o 

o  © 

o  © 

© 

© 

©  o 

o 

ro 

TC 

1 

1 

1  1 

1  1 

I 

I  i 

1 

l 

9 

9  1 

9  1 

» 

• 

1 

9 

+ 

N. 

3 

*o 

% 

X 

X  % 

X  X 

X 

X  X 

X 

X 

X 

X  X 

X  1. 

X 

T 

X 

<4 

X 

'O 

U 

o 

(V 

eg 

eg  oo 

o  rvj 

CM 

X)  o 

‘0 

o 

CM 

rw.  CM 

>  CM 

94 

x. 

CM  N- 

O' 

m 

-O’  CM 

O'  o 

© 

K.  #-» 

94  O’ 

o  x> 

O  O 

ro 

O' 

O 

ro 

i/1 

N* 

XI 

CM  X 

>  o 

o 

o  o 

m 

x> 

X; 

—  o 

CM  O 

ro 

ro 

94 

ro 

O 

m 

jJ 

"W 

?r 

*■  X 

^  o 

> 

-o  M 

94 

> 

O 

<-*  **0 

>  ^ 

© 

94 

'O 

n 

*■9 

© 

in 

ro 

eg  94 

x> 

CM  94 

>o 

in 

N-  -* 

o  o 

CM 

94 

V* 

r 

u. 

94 

94 

«H  9* 

•"»  CM 

CM 

CM  CM 

CM 

"■> 

CM 

rO  rn 

m  ^ 

<7 

o 

C1 

o 

o 

o  o 

©  c 

O 

o  o 

O 

o 

o 

©  C 

o  o 

C 

O 

c* 

o 

c 

<. 

i 

1 

1  • 

1  • 

1 

1  1 

1 

i 

I 

»  1 

9  9 

1 

1 

• 

1 

+ 

or 

CM 

i 

Is 

X  Jb 

X  X 

1 

X  X 

X 

X 

X 

X  X 

X  X 

X 

X 

X 

X 

X 

jj 

© 

o 

X 

O  ro 

fO  n 

X 

94 

© 

J" 

r> 

r  c 

CM  — 

(V 

rC 

o 

O' 

>■ 

N. 

3 

ro  cm 

CM  O 

«H 

o  © 

N. 

94 

^  c 

>  in 

> 

O' 

«r 

o 

o 

m 

CM  CM 

^  c 

o 

o  © 

w+ 

'O 

CM 

m  c 

94  X 

r\t 

c 

o 

© 

XJ 

CM 

O  94 

<o  >c 

n 

n  ^ 

s 

CM 

o 

n  •-• 

o 

o 

n 

CM 

:m 

o 

m 

• 

•  • 

•  • 

• 

•  * 

• 

• 

• 

•  • 

•  9 

9 

9. 

9 

9 

9 

cr 

>o 

cr 

CM  CM 

94  O' 

n 

m  — i 

** 

T> 

*»* 

©  CM 

94  © 

o 

CM 

94 

94 

aJ 

o 

94 

•M  94 

*-i  rvj 

CM 

eg  cm 

,M 

ro 

-n 

rO  rr> 

m  <r 

& 

c 

in 

o 

o: 

a 

c 

o 

3  3 

©  c 

© 

©  © 

O 

© 

o 

o  o 

o  c 

o 

© 

o 

£■ 

c 

3 

+ 

i 

1  1 

1  1 

i 

I  i 

» 

1 

i 

1  1 

I  1 

1 

l 

1 

i 

+ 

iC 

9* 

X 

9 

X  X 

X  X 

X 

X  X 

X 

X 

X 

X  X 

X  X 

X  X 

X 

X 

X 

o 

o  *n 

M»  9-1 

N- 

o  o 

O' 

© 

<1 

O  h- 

©  > 

o 

> 

CM 

fc 

> 

x  cv 

o  ro 

X 

rH 

d 

n 

o 

94 

c 

^3- 

> 

a 

XI 

O  X 

ro  cm 

X 

x»  o 

'C 

iT\ 

o  © 

O  -94 

CM 

9 

'O 

O' 

a 

cm 

94 

in  * 

o  n 

O' 

CM 

n 

O 

> 

n  o 

94  S. 

CM 

•-4 

94  O 

> 

-O 

4C 

-•  o 

«*  CM 

H  O 

*o  cm 

sO 

K. 

^o  eg 

94  ^ 

eg 

eg 

eg 

> 

• 

•M 

r 

JO 


3 

u 


^  (M  rj  ^  ^  c  N  X»  O  ©  9*  CM  ro  C  n  ©  r-  X  >  O 

lNrt  HHH«-(rtrlH«H(\J 


»— 

3 


uJ 

-O 


FLUXtS  FUK  DEVIATION  CROUP 


64 


O' 


4-4 

•*<  *— 

p 

cv 

p 

p 

p 

ro 

m 

m 

m 

m 

<r 

no 

<r 

<3* 

<r 

o 

c 

c 

c  c 

C 

c 

c 

c 

c 

c 

c 

C» 

c 

c 

c 

C 

c 

C 

c 

c 

c 

1 

• 

•  1 

i 

1 

1 

ft 

a 

1 

i 

• 

• 

i 

i 

• 

i 

1 

i 

1 

+ 

Tu 

a 

•3L  X 

ot 

*y 

% 

!fy 

<fr 

cat 

dt 

% 

Ob 

4- 

i 

ot 

<L 

OL 

J 

<ly 

Of 

o 

or 

x 

n  a 

in 

P 

o 

o 

N. 

m  n. 

P  N- 

o 

X 

X 

4-4 

^4 

o 

a 

r 

(V  o 

X 

N. 

x 

d 

C 

X 

O' 

<y 

cc 

O' 

o 

X' 

O 

no 

o 

p 

no 

O' 

d 

CNI  *0 

o 

n 

no 

•o 

hw 

X 

m 

P  X 

p 

P 

X 

o 

p 

u 

o 

X. 

0  C 

J 

u 

r^' 

n. 

c 

o 

X 

4- 

r* 

p 

p 

<r* 

N 

N 

X 

d 

Ui 

• 

• 

•  • 

• 

m 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

<3 

— 

x 

no 

4-4 

N- 

d 

rv 

•-4 

X 

m 

.M 

X 

4—4 

■d 

P 

4-» 

X 

UJ 

O 

a 

•H 

r4  r4 

p 

Pd 

C\J 

P 

CM 

m 

(X 

p 

ro 

no 

^  no 

<r 

o 

X 

o 

o 

e  o 

o 

O 

o 

o 

o 

o 

o 

o 

O 

O 

D 

o 

o 

o 

o 

o 

o 

O' 

1 

1 

•  i 

i 

ft 

1 

• 

1 

i 

1 

1 

• 

1 

• 

• 

1 

• 

1 

1 

♦ 

o 

no 

By 

i 

■%  t 

u 

3t 

By 

By 

By 

i 

(B- 

It 

U 

1/ 

1/ 

i 

ly 

* 

By 

p 

o 

m 

X 

p  d 

n  o 

x 

o 

N. 

5T 

X 

n 

4-4  JO 

in 

r 

o 

X 

X 

x 

N. 

^  c 

*•4 

Pd 

N. 

c 

flO 

rp 

O 

m 

no 

X 

o 

X 

ro 

X 

X 

x  ' e 

P  P 

in 

•-* 

n 

o 

Cf 

O 

rn 

N- 

P 

4-4 

p 

N- 

O 

X 

N- 

A 

X 

o 

n  o 

rvj 

O 

X 

4s. 

v. 

O 

PJ 

X 

x> 

O 

K» 

*o 

n 

X 

> 

> 

x 

CSJ  4-4 

x 

in 

no 

cv 

- 

X 

N* 

4-4 

ro 

P 

X 

4-1 

cr 

p 

4-» 

r 

4-» 

*H  r4 

«“• 

p 

P 

cv 

P 

P 

ro 

ro 

ro 

no 

ro 

no 

no 

^3 

c 

H- 

o 

c 

o  o 

o 

y— ■ 

O 

o 

O 

o 

C 

o 

O 

O 

O 

O 

O 

o 

o 

o 

o 

<1 

• 

1 

•  ft 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

♦ 

X 

p 

*y 

<u 

<L  B 

i 

li. 

a. 

v* 

3. 

& 

1/ 

«, 

4 

M. 

». 

'ly 

t 

1/ 

Jj 

cj. 

o 

y-* 

X'  c* 

*> 

A 

ro 

p 

* 

c 

rv 

X 

c 

iT 

r 

fw 

X 

ir- 

L> 

ro 

N-  O 

in 

l\ 

w 

>> 

•?3 

O' 

o 

O 

X‘ 

4-4 

X 

O 

X 

n 

p 

X 

uJ 

C 

o 

c  O' 

x 

a 

O 

X 

N- 

rr 

X 

47 

N- 

n 

P 

X 

X 

K. 

O 

•-4 

o 

O'  .c 

<r 

<> 

U 

,*n 

X 

N* 

o 

o 

X, 

4-* 

o 

fO 

• 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

lK 

X 

r\j  w* 

•—4 

fw 

n 

no 

•-M 

V-4 

X 

X 

P 

no 

4-1 

4-4 

4-4 

<r 

n 

<3 

P 

aJ 

-n 

i 

H 

fH 

•-»  4-4 

p 

PJ 

CM 

.M 

M 

IVJ 

n 

ro 

ro 

no 

°o 

no 

ro 

x 

n 

o 

c 

e 

o  o 

o 

a 

c 

K— V 

c 

O 

«■— s 

o 

o 

y-s 

o 

c 

o 

• 

i 

1  1 

1 

i 

1 

1 

1 

1 

7 

1 

1 

1 

1 

1 

1 

7 

i 

i 

-f 

«iC 

4-« 

By 

'w. 

<b  m, 

By 

1/ 

B 

1 

X 

f?. 

a- 

3, 

<%' 

(By 

<F, 

at 

o 

£ 

o 

n  x 

n 

m 

d 

O 

n 

4-4 

o 

X 

no 

n 

z> 

P 

O 

x» 

«&. 

4-4 

m 

d  4- 

H 

O' 

X 

IT 

> 

c 

n 

rv 

P 

o 

N- 

c 

P 

o 

c? 

o 

•> 

^4  4— « 

no  O 

n 

•-4 

lA 

XJ 

O 

n 

4-4 

o 

X 

f*- 

o 

n 

— »  d 

X 

X 

> 

> 

n 

no 

!M  O 

4-1 

o 

X 

> 

z 

7) 

> 

x 

-n  p 

P 

X 

X 

X 

*-4 

n 

X 

P 

no 

4-4 

4-» 

X 

> 

p 

X 

ZJ 

y> 


Z3 

o 


x 

.3 


^  P  no  d  IT  >C'  S  l  > 


•-<  p  ro  d*  x-  x  n-  £>  >  o  d. 

4-l4-44-*4-44-«4-»^*^4-4C\i  H—  UJ 

3  n 

H-  <1 

X 


FLUXtj*  FD«  DfcVlAMClN  RROUP  10 


65 


or 

c 


UJ 

U< 

o 


y? 

2 

CD 


/i 


-j 

o 


•M 

•M 

<V 

cv 

cv  cv 

cvj  ro  ro 

m 

ro 

ro 

ro  <r 

^  cr 

«r 

c 

o 

c 

c  c 

c 

© 

c.  c. 

c 

c 

c 

o  o 

C 

c  c 

c  c 

C 

c 

c 

1 

1 

t 

• 

1 

1 

• 

• 

1 

1 

• 

• 

1 

1 

•  1 

i  i 

• 

I 

♦ 

*  X 

<1/ 

X 

X 

X 

X 

X  X 

x 

X 

X 

X 

X 

X 

X  X 

X  X 

X 

X 

X 

O 

o 

«-*  o  o 

o 

i n 

X  O  vi 

X) 

in 

o  o  o 

o  o 

<c 

o 

o 

m 

ft-4 

o 

r  1 

** 

-sr 

cv  c 

IT 

X 

cv 

cv 

C  m 

in  rn 

c 

ro 

ro 

>o 

=r 

VI 

in 

oc 

-o 

>c 

o  or- 

cv  o 

O 

>c  cv 

cv 

CV 

CO 

tf 

c 

c 

1/ 

c 

vr 

rv 

a 

a 

* 

c 

c 

rr  C 

3  C 

— « 

ro 

•a 

• 

• 

• 

• 

• 

• 

• 

• 

• 

« 

• 

* 

• 

• 

•  • 

•  • 

ft 

• 

• 

w~> 

n 

CVJ 

> 

n 

r> 

> 

> 

.v> 

**v 

-4 

=T  >C 

o 

r»t 

o 

^■4 

:v 

CV  CVJ 

cv  cv  CV 

V) 

CO 

ro 

ro  ^ 

<*  ** 

o 

ao 

<o 

o 

o 

o  o 

o 

o 

o  © 

o 

o  o 

o  o 

o 

O  O 

o  o 

o 

O 

o 

in 

i 

1 

1 

• 

1 

• 

1 

1 

• 

1 

• 

1 

1 

1 

1  « 

1  1 

1 

1 

♦ 

cv 

VI  X 

X  X 

X 

X 

X 

X 

X 

X 

X- 

X 

X 

X 

X  X 

X  X 

X' 

X 

X 

<3 

o  >o 

CV 

*■* 

v>  cj 

»■< 

o 

> 

K. 

V)  ao 

K,  « 

CV  N- 

n 

c 

m 

ro  ^ 

>c  in 

•*4 

in  o  o 

o 

<T 

ao 

^  N. 

< 

o 

ro 

n  ^ 

^•4 

m 

nO 

© 

a 

CV 

t 

ro 

^  o  o  > 

c 

o 

'/> 

n 

V| 

n 

o 

*v 

*VJ 

rvi 

w~l 

v» 

O 

? 

l>  T> 

n 

*0 

o 

-t 

*7 

m 

cv 

- 

N- 

vj  m 

cv 

- 

ro 

** 

o 

O  CO 

^•4 

or 

_4 

w* 

CV. 

;v  vv 

<V  (V  Cv 

fO 

ro 

ro 

ro  ro 

O 

►- 

O 

c 

o 

o 

c 

c 

o  © 

a 

c 

o 

o 

C 

o 

o  o 

c  o 

a 

o 

o 

<» 

1 

• 

1 

1 

1 

1 

a 

i 

» 

i 

1 

1 

1 

» 

•  I 

•  1 

« 

1 

♦ 

•X 

:v 

«. 

i 

i 

X 

i 

t 

i 

X 

% 

«/ 

t 

i 

X  X 

l  X 

i 

X 

X 

-U 

O 

c 

*\ 

r*. 

f^. 

CT' 

< 

c 

-Zf 

n  ^ 

r 

r-4 

ro 

^  o 

CV  <1 

ro 

> 

O' 

X 

> 

n 

o 

> 

CN‘ 

X 

**T 

C 

>  o 

NO  ro 

,u 

IT 

«c 

o 

cv 

o 

X 

N- 

o 

X 

^  o 

O  X 

^  C\ 

<T 

«» 

o 

un 

o 

o 

w 

^'v 

c 

ro 

c 

V/ 

n 

cv 

rrt 

3 

V  ~ 

X  <c 

n 

vV 

• 

• 

• 

• 

• 

• 

• 

• 

ft 

• 

• 

9. 

• 

• 

ft  • 

ft  ft 

* 

• 

• 

X 

K- 

>c 

ro  cv 

X 

in 

V) 

cv 

*-* 

X 

ro 

ri  *H 

K.  ^ 

Vft 

CV 

O 

.V 

(V 

.VJ 

cv 

."V 

iV 

V> 

ro 

v> 

ro  O 

-j 

o 

*n 

£ 

o 

w* 

o 

o 

O 

c 

c 

c 

o 

c 

C 

o  o 

z>  o 

O 

o 

o 

O 

«•* 

1 

1 

1 

a 

a 

1 

I 

1 

I 

1 

i 

1 

• 

1  1 

•  1 

A 

1 

♦ 

X 

X 

X 

X 

x 

:• 

1 

<■ 

X 

X 

1 

9> 

X 

X 

*  x 

X  <9 

X 

X 

X 

O  N- 

3 

JV 

n 

ro 

ro  vi 

> 

c 

X 

> 

ro 

o 

^  ro 

O'  X) 

■3 

c 

X 

♦s^ 

> 

CVJ  n. 

-H 

N- 

>o 

o 

o 

■SJ 

t; 

•— 

rw 

>  O 

<J  X3 

o 

K. 

a 

o 

o 

cv  o 

•v  O 

c 

X 

in 

h-. 

cv 

*n 

(V  X) 

ro  ro 

X 

cv 

a 

© 

> 

<0 

lO 

> 

v  o 

o 

Kfc 

o 

m  o 

> 

O  CNJ  V  ^ 

> 

oo 

z 

• 

• 

• 

• 

• 

• 

• 

• 

• 

■ 

• 

• 

• 

• 

•  * 

•  • 

• 

ft: 

ft 

< 

n 

n 

CV 

O' 

<3 

K. 

■o 

?a 

•** 

>  00 

wOJ 

.V  «-• 

X  O 

o 

>3 

-v 

X 

X 

D 


(\  rn  4  /,  >c  \  t  '  J-  C  tv  r’  5  P  C  K  i  >  O 

-1 

*«a 

aJ 

y> 

»— 

< 

OD 

SCATTEKED  INTENSITIES  VERSUS  OETpCTOH  AND  COLLISION  NUMBER 


'iwt. ..  w  .  ^ 


66 


CT 

C 


cj 

UJ 

UJ 

Q 


(H 

^H 

CM 

<v 

CM 

CM 

CM 

rr 

ro 

ro 

ro 

ro 

ro 

ct 

<a 

O 

c 

c 

c 

e 

C 

o 

c 

C 

c 

C 

c 

C 

c 

c 

c 

O 

o 

c 

C 

c 

c 

• 

• 

1 

• 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

i 

1 

1 

i 

+ 

04 

at 

a 

at 

v4 

at 

at 

l  at 

m. 

at 

at 

X 

<r 

at 

X 

X 

cm 

cm 

cm 

cm 

o 

00 

x 

S» 

o 

CO 

ao 

a* 

x 

x  in 

in  a 

X  rw 

^  p 

<T 

X 

«H 

OC 

o 

a 

x 

ro 

cm 

Ch 

in 

ro 

X 

iT* 

v> 

P 

X 

a 

X 

hw 

ro 

X 

o 

ro 

x 

«-< 

x 

o 

N» 

** 

N. 

X 

N- 

p  p 

ro 

hw 

'O 

•-A 

<3 

<* 

<• 

c 

*w 

N. 

c 

< 

j 

»• 

a 

C 

o. 

•* 

X 

c 

a 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

w* 

x 

ro 

M 

^H 

> 

x 

rO 

cv 

•■h 

> 

X 

.ft* 

p 

-o 

M 

O 

»-4 

•■H 

•*-« 

•■H 

<^H 

CM  CM 

CM 

CM  ro 

ro 

ro 

ro 

ro 

ro 

& 

o 

X 

o 

o 

O 

o 

o 

O 

o 

o  o  o 

a 

O 

O 

O 

O 

o 

o 

o 

O 

o 

o 

p 

1 

1 

I 

1 

1 

1 

1 

1 

1 

i 

i 

1 

1 

1 

1 

• 

1 

1 

1 

1 

-f 

CM 

-o 

% 

1/ 

mi 

m, 

4 

m, 

X 

m,  tm 

t 

% 

1, 

X 

1 

X 

X 

m 

t 

m. 

X 

3/ 

o 

X 

a* 

p 

N* 

N. 

•H 

CM  X 

«-4  X) 

Pi 

P 

o 

o 

o 

> 

CM  IT 

or 

*»H 

X 

O 

X 

ro 

in  ro 

o 

CM 

X 

w~* 

o 

X 

CM 

CM 

-a 

X 

X 

CM 

IN* 

x 

JO 

O’ 

CM 

X  ^ 

X 

c 

y) 

CM 

*-« 

x 

n 

o 

> 

o 

n 

X 

Ml 

n 

o 

rvj 

o 

X 

p 

X 

“• 

N. 

<3- 

00 

r*H 

(H 

X 

•3 

CM  •-»  <> 

n. 

X 

ro 

CM 

X 

p 

ro 

CM 

w-* 

cr 

«-h 

•—t 

**H 

CM 

CM 

CM  CM  CM 

rr. 

ro 

ro 

ro 

rr> 

ro 

■>T 

-cr 

o 

h- 

C 

c 

o 

o 

o 

O 

O 

O 

o 

O 

O 

O 

C 

o 

o 

o 

C 

O 

c 

o 

<1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

♦ 

X 

AJ 

%, 

4 

4 

4 

A 

:m 

'4 

4 

4 

f 

t 

4 

4 

3* 

4 

4 

4 

m 

3t 

•4 

4 

jj 

c 

o 

K- 

f-« 

c\ 

«-« 

X 

N- 

r*-J 

•— i 

C 

< 

Nw. 

X 

< 

X 

iM 

*-H 

*3 

f-H 

o 

f-H 

X 

CM 

**H 

X 

> 

ft*. 

X 

CM 

o 

*♦ 

C 

X 

P 

X 

CM 

-J 

X 

or 

P 

X 

a 

lT« 

rr 

X1 

N. 

«n 

rw 

X 

X 

X 

P 

p 

CM 

o 

ro 

X 

3” 

X 

X 

.■V. 

X 

O 

X 

ro 

A 

w 

CM 

• 

m 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

X 

X 

& 

ro 

CM 

r-H 

X 

P 

m 

tF-« 

O' 

X 

ro 

CM 

X 

ro 

ro 

CM 

CM 

Jj 

o 

**H 

»-h 

*—< 

*-H 

r*H 

CM 

CM 

.M 

.M 

CM 

ro 

ro 

ro 

«x 

ro 

O’ 

O 

UL> 

X 

o 

o 

O 

e 

o 

O 

o 

O 

O 

O 

O 

o 

O 

o 

WT 

e 

o 

o 

O 

+ 

1 

1 

r 

i 

1 

1 

• 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

-♦* 

e 

f-H 

Jt 

3. 

cm 

3, 

m. 

at 

at 

4 

'S 

X 

X 

<T»t 

X 

X 

3. 

m- 

3 

at 

m 

o 

X 

p 

x 

>> 

P 

c 

X 

CM 

ro 

<T 

IV 

X 

X 

P 

ro 

CM 

p 

i. 

r*H 

fH 

P 

o 

X 

r*H 

> 

ro 

X 

X 

•■H 

o 

ro 

p 

*—♦ 

•H 

h^ 

p 

o 

r— > 

Co 

X 

P 

CM 

•■h 

r—* 

r^. 

X 

c 

•C 

P  CM 

> 

X 

p 

a 

Cj 

no 

CM 

p 

o 

f-4 

CM 

rj 

o 

•H 

X 

& 

P 

CM 

G> 

X 

2 

* 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

X 

x 

CM 

X 

n 

O 

<H 

s* 

p 

?r 

Ml 

c 

P 

^3* 

CM 

f\) 

X 

X 


H  (\j  m  C  PXS-  XC^O  •*■»  CM  ro 

p 

o  N.  X  s> 

o 

-1 

<x 

X. 

fH  f-H  f-H 

CM 

l~ 

aJ 

3  ‘O 

E-  <t 


X 


INTENSITY  DEVIATIONS  VERSUS  DETEcTPR  AND  COLLISION  NUMff£R 


67 


(V 

CV 

rn 

rr. 

m 

m 

rn 

9 

rn 

9 

m 

9 

<r 

91  IT  IT»  IT' 

IT 

IT 

CV 

c 

c 

c 

C 

c 

c 

c 

c 

c 

c 

e 

c 

c  c  c  c 

C 

C 

c 

• 

1 

1 

I 

ft 

i 

1 

1 

1 

ft 

i 

1 

i 

i 

•  Ilf 

1 

ft 

ft 

9  x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X  X  X-  X 

J> 

X 

X 

OC 

O  N- 

C\J 

m 

c 

N- 

m  m 

v-l 

o 

m 

h-  o 

®  00  to  rn  (V 

>o 

o 

o 

O 

m 

Xi  c 

i n 

9 

in 

o 

'L 

lT> 

9 

CV 

K 

iT 

o  m  st 

ac 

o 

>— 

N- 

> 

O 

CV  *> 

*-< 

(A 

n  r> 

t  o 

m 

o 

*o 

L 

rr 

a 

a 

N 

o 

o 

c\ 

c 

V? 

tf 

C-  C  C-  K 

c\ 

UJ 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

« 

•  •  •  • 

• 

• 

• 

y 

X 

tt. 

<1 

m 

AJ 

X? 

9 

\ 

-•  ^  n  5r 

r» 

-n 

m 

Q 

CM 

CM 

<n 

m  m 

rn  "0 

9 

m 

9 

■S’ 

m 

9 

^  LP  A  A  A 

m 

CV 

O 

OOO 

o 

o  o 

o 

o 

o 

o  o 

o 

O 

O  O  O  O 

o 

a 

o 

1 

1 

i 

i 

* 

1 

l 

1 

1 

1 

1 

l 

1 

1 

fill 

i 

• 

1 

m  x 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X  X  X  X 

X 

X 

X 

O  N- 

o 

eg  9 

cv 

o 

> 

9 

A 

o 

n  o 

CV  o 

n  n  /\  t-» 

> 

m 

9 

'C 

00 

9 

c 

VO 

CV  9 

o 

9 

*c 

*r  tn 

otto 

c 

•o 

X\ 

*— 1 

9 

o 

*- * 

o 

X> 

'JO 

<3 

9 

ITi 

o 

o  o  a  m 

A* 

>c 

rn 

nj 

-o 

x  o 

Al 

> 

9 

O 

-n 

st 

o 

9  >  O  O 

n 

>: 

V* 

rn 

CV 

o* 

9 

9 

*0  CV  f> 

*n 

rn 

«t 

•H  <  ^  ^ 

• 

9* 

• 

fO 

• 

9 

{\l  w  cm  ^  rrn  m  m  4  «  ^  ^  ^  a’.  ^  ^  if)  c\. 

oeoocoooocococ cococo  o 

••••■•••••••*!•■•••*  I 

'N  I  ‘i  i  .1  i  i  1  1  1  1  jt  i  i  f  f  f  I,  ^  I, 

-  O  >  o  o  9  c*  <  n  ■>  k  r  ?  r  ^  c  o  n  x. 

0«’-»t),n0^^C‘i*0in93U'>  O  O  <3  r,  X*  A 

H(V)fVij^yCHCO<inH(>(>Of  f\lMro  cC 

C  o  c\  •*>  9  .c  o  a  a  jc  *c  9  rn  c  c  x  ~  ,n  -*v 

•*•*•*•  ••*•••*•*♦■••  • 

aj  t\i  (\i  (V  ^  m  r^j  <»)  m  ro  ^  4  nq  ^  jp  n  .a 

c  o  o  c  c  o  c  ocooooo  ooo  '  e  o 

1  •  •  *  •  •  *  *  I  •  »  I  •  I  I  I  A  I  I  »  | 

x  x  i  x  *,  x  x  x  a,  x  x  x  x 

OOXN-^*N.Ov-q,rriv\i,,|^rsfc^;<3-flO*-«^C\js3  C'C  rn 

r>  c  N-  ‘A  N-  X*  >  t  CM  4T.  O  *>  fw  IT  K.  CV  N-  O  N*  <v  <\l 

Of^^O^^^CNJO-nOA^'OiA®®<.cXirv  o 

*•***•••••••••••*•••  * 

3 


3 


o 

o 

t/ 


o 

AC 

*> 

lA 

AJ 

9 


X 


< 

X 

4J 

2 


* 

3S 


TC 

-J 


-o 

CL 


68 


• 

o 

C%J 

o 

05  3 

• 

• 

3  H* 

05 

05 

HH  < 

c 

X 

2 

X  z 

UJ 

u* 

O 

O  *-H 

o 

H* 

M 

• 

H*  X 

3 

uJ 

05 

05  X 

u 

T 

co 

or 

3 

u> 

< 

UJ 

3 

X  >- 

X 

X 

3 

H* 

X 

< 

u. 

UJ 

2 

Q. 

UJ 

X 

a 

a: 

• 

X 

<t 

HH 

UJ 

3 

X 

or 

cr 

X 

o 

X 

u 

< 

3 

X 

2 

c 

X 

X 

3 

< 

H- 

2 

H* 

3  X 

UJ 

X 

o 

UJ 

o 

o 

c 

2 

Q 

X 

2 

05  3 

o 

O 

X 

h- 

X 

<t 

3  H- 

c 

hh 

X 

X 

3 

h- 

HH  < 

o: 

HH 

cr 

2 

X 

X  2 

•— • 

HH 

cr 

O  hh 

N» 

-J 

2 

UJ 

X 

X 

X 

hh 

-J 

O 

s: 

3 

X 

05  X 

HH 

O 

HH 

X 

HH 

HH  UJ 

CO 

cr 

? 

HH 

X  »- 

U- 

X 

X 

o. 

T 

u 

X 

X 

c 

o 

2 

3 

X 

*-H 

T 

HH 

3 

3 

►— 

UJ 

2 

cr 

H* 

rn 

X 

X 

HH 

X 

3 

a 

o 

►- 

X 

UJ 

X 

3 

r 

t*J 

►— 

X 

X 

T 

>- 

>- 

u. 

>- 

It 

X 

X 

<1 

X 

d 

o 

U*J 

o 

Q 

3 

Q 

z 

05  3 

i— 

3 

3 

3 

UJ 

3 

3  — 

•-H 

►— 

H- 

H- 

►— 

HH 

HH  < 

3 

<t 

<t 

o 

X  2 

o 

i 

2 

Z 

z 

z 

3 

3  HH 

►—i 

*—4 

HH 

HH 

• 

X 

X 

05 

• 

X 

X 

X 

X 

o 

o:  x 

U) 

05 

X 

X 

X 

or. 

UJ 

X 

HH  3 

— > 

X 

3 

3 

3 

3 

x 

3 

r  — 

<3 

*3 

1— 

H* 

H- 

►— 

X 

►H 

H- 

3 

3 

2 

o 

2 

UJ 

UJ 

UJ 

UJ 

U> 

C 

-J 

X 

X 

X 

r 

3 

/ 

HH 

C\J 

Oj 

C 

L u 

UJ 

UJ 

uJ 

o 

HH 

O 

X 

O 

S 

3C 

X 

£. 

3 

< 

05 

Q 

X 

2 

'05 

05 

05 

'05 

Z 

^AJ 

X 

Cs 

3 

3 

UJ 

UJ 

3 

H- 

3 

H-» 

HH 

HH 

HH 

HH 

HH 

< 

3 

'X 

»— 

X 

X 

X 

X 

05 

2 

05  3 

<* 

<1 

o 

a 

3 

3 

HH 

HH 

3  ►— 

3 

2 

►- 

H- 

H- 

3 

X 

hh  «sr 

05 

HH 

05 

05 

05 

05 

3 

X 

X  2 

3 

X 

•—4 

hH 

HH 

hH 

3 

3 

3  HH 

X 

£ 

X 

X 

X 

X 

3 

»— 

H-  JL 

-J 

05  X 

2 

►— 

N- 

05 

JO 

o 

4TH 

05 

HH  UJ 

3 

H 

N» 

o 

NO 

3 

X  N» 

— • 

>- 

£5 

^H 

,\J 

£5 

3 

*— 

C 

hH 

/5 

*3 

<3 

3 

(V 

HH 

3 

M 

H- 

>— 

hH 

*H 

3 

75 

X 

O 

I— « 

< 

3 

x 

X 

X 

X 

HA0I.4UUN  KLStflWCrt  ASSL'CIAieS  #LIU®  HKUKLLM  1600 


69 


© 

o 


♦ 

X*  iTl  VO  X  X 

IT 

o 

in  iT*  ^ 

IP  i/>  iTl 

in  in  in 

n  in  in  n 

m 

a. 

O  O  O  O  ©  O 

o 

o  o  o 

o  o  o 

©  c  o  ©  o  ©  © 

o 

o 

1  1  ft  ft  1 

fe 

1 

»  1  1 

1  1  1 

ft 

ft 

• 

ft 

1  1 

1 

i 

• 

>o 

<1X1/11(1 

X 

xxx 

XXX 

X 

X  X 

X 

X  X 

X 

X 

a- 

c 

c  *-•  >c  «  cv 

© 

»C  <-  co 

NC  LP  O 

CM  CV 

CL 

X  X 

o 

X 

K. 

CO 

<#  iO  'O 

p^  ^  © 

in  in  in 

40 

CM  X 

X 

pw 

M 

d  ^  o  fn  /\ 

<* 

o 

•4  V 

O  CM  O 

in  o 

no 

h  4  O 

n 

X 

O 

X  80  ~«  ©  IT 

x 

© 

K  CO  IT 

CM  CP  CM 

m  o 

© 

m  o  4 

m 

at 

< 

% 

• 

• 

•  •  • 

a  a  a 

a 

a 

• 

• 

a  a 

a 

a 

U 

ii 

rn  s  o  a*  ^  oc 

ro 

■"»  CO  ^ 

CM 

aU  CM 

1 

2 
1 

2 

at 

X 

o 

3 

X 

x  x  x  x 

x 

<* 

*T  *X  rn 

^  <r  4 

n 

■*4 

n 

x  m  in 

m 

i/> 

©  o  o  ©  o  o 

o 

O  ©  O 

©  o  o 

o 

© 

O 

©  o  o 

O 

© 

i  i  i  «  i 

• 

1 

1  1  1 

1  1  • 

i 

1 

1 

« 

«  • 

1 

I 

T 

m 

t  i  X  X  X 

t 

X 

Hi 

X  X  X 

X 

X 

X 

X 

L  X 

X 

X 

O 

o 

K.  X  P*»  A  O  O 

CM 

X  *  * 

C  K  CM 

a-a  QD 

CO 

•X 

K.  JO 

© 

CM 

oc 

1 

M  S  C  O  CM 

a* 

CM  CP  O 

O  P.  N 

P-  O 

a* 

CO  CM  CM  X 

m* 

u 

X 

<©  rn  &>  x>  k- 

(O 

N* 

CM  O  CM  o  in  ^ 

CM  ^  © 

O 

X  X 

NO 

o 

m  CM  ^  O  IT 

a 

*n 

Zl  •-*  CM 

<t  o  >o 

rA  CM 

o 

a^ 

©  o 

n 

at 

tr 

o 

•  •  •  a  • 

* 

« 

a  a  • 

•  a  • 

a 

a 

a 

a 

a  a 

a 

• 

z 

3 

CM  rn  CM  X  X 

m 

ro 

O  /I 

m  ^  4 

!S» 

•«a 

a<4 

N. 

^  >o 

n 

o 

o 

• 

M 

a* 

ro  ro  po  m  M 

m 

rO 

4  4  0 

4  4  4 

^4 

<4 

X 

X  X 

X 

A 

0  0  3  0© 

c 

© 

e  o  © 

O  o  o 

©  © 

© 

o  ©  o 

o 

O 

© 

II 

III** 

K 

1 

i  <  i 

•  ft  1 

1 

1 

I 

1 

1  1 

1 

ft 

UJ 

a 

X 

(j,  d,  j,  (|.  rf. 

X 

X 

X  X  X 

XXX 

X 

X- 

X 

X 

X  X 

X 

X 

— J 

X 

m  <c  x  ®  in 

O- 

p^  ^  © 

©  CM  O 

o 

CV 

P^ 

o 

m  x 

X 

ac 

U 

iT  *-<  'C  K  C 

X, 

<r  O  ^ 

IT  CM  CM 

ro 

© 

a- 

!> 

a-  m 

o 

a-i 

3 

>  ^  nn  n  a 

o 

V. 

O  ^ 

4  H  H 

JO 

rw 

n 

t> 

©  p^ 

X) 

•o 

X 

i/) 

n m  o  ro  >c 

CM 

o 

N.  h-  O 

o  o  zi 

N. 

CM 

no 

X 

X  X 

to 

A 

u 

UJ 

1— 

i/> 

— 

^  OP  if' 

O  CCK 

in 

C 

n 

m 

m  4 

CM 

A 

o 

< 

z 

Z 

c 

ro  fr  r  n  rn 

rn 

rr.  rr,  fT) 

co  rA  m 

m 

m 

m 

m 

m  m 

m 

A 

a 

** 

c  c  c  c  © 

c 

C 

CO© 

c  c  © 

c 

C 

c 

c 

©  © 

© 

C 

u 

O  1- 

1  1  1  1  1 

1 

1 

i  r  i 

1  •  ft 

ft 

1 

i 

I 

1  1 

I 

• 

X 

UJ 

m 

3-  X-  X/  X  <3/ 

X 

X 

3  X  X 

X  X  X' 

X 

X 

X 

X 

X  X 

X 

X 

x 

O  UJ 

CM  K  O  *-«  O 

z> 

vC  CM  <C 

in  ©  pw 

in  ^ 

© 

O  CM 

o 

A 

— > 

a  -j 

x  ~  x  — •  or 

aT 

CO 

K.  rr  m 

VC  CM — 

OL 

cm  e 

aa  QC  O 

o 

at 

z 

O  U 

C  c  ^  O  fu 

LO 

x ; 

o  o  ro 

CV  K. 

aU 

K. 

O  IT 

at 

A 

u 

1/  if  O  rr  «\ 

N 

—  IT  C 

*.  o  — 

(\ 

4, 

•x 

<  rr, 

X 

* 

c 

x  or 

•  •  •  «  • 

» 

• 

a  •  • 

a  a  a 

a 

a 

a 

a 

a  a 

a 

• 

Z 

3 

*G  P  O  <0 

K. 

>D 

^0  4”^ 

m  *n  m 

cv. 

a* 

AJ 

a^ 

a*  a 

a^ 

O 

X 

»•* 

u 

O  3 

A  A  A  A  A 

CM 

CM 

CM  CM  CM 

CM  CM  CM 

CM  CM  rn 

m 

m  m 

rn 

at 

UJ 

UJ 

©  o  ©  o  o 

O 

© 

O  O  O 

O  O  O 

© 

o 

O 

o 

o  © 

o 

o 

3 

*— 

X 

•  «  t  •  » 

1 

1 

1  1  1 

1  I  1 

1 

1 

1 

ft 

•  i 

1 

1 

© 

UJ 

UJ 

f\i 

lit  *  X 

X 

X 

».  1  X 

xxx 

X 

X 

X 

X 

X  X 

X 

X 

Z 

3 

X 

f\  in  »c  O  in 

o 

«-» 

O  ^ 

m  «  p 

o 

© 

a* 

n  n  n 

3 

in 

X 

X 

O  >D  C\i  \f\  rn 

rn 

m 

O  O  CM 

CM  4  O 

a-*  O 

4> 

X 

<C 

A* 

a 

3 

4  o  in  n.  h 

Ki 

X 

P^  >c  *-« 

o  >  o 

^  o 

o 

s- 

CM  X 

> 

o 

z 

P^  30  v*  stl  S* 

> 

^  ©  n 

n  -n  — i 

*M  © 

m 

X 

^  n 

“O 

T) 

3 

• 

m  a  •  «  a 

• 

• 

•  a  a 

a  a  a 

a 

a 

a 

a 

a  a 

a 

a 

l/> 

CM 

CM  CM  CM  CM1  CV 

CM 

CM 

CM  CM  in 

a4 

aa 

^  X 

O 

vf.'  P^ 

X 

m 

X 

O 

uJ 

♦ 

f-1  fH  (\  rl  n 

•-t 

CM  CM  CM 

CM 

CM 

CM 

CM 

CM  CM 

A 

c 

>* 

X 

©  C  C  C  © 

© 

© 

©CO 

coo 

© 

C 

C 

O 

o  o 

© 

o 

o 

•  •III 

1 

K 

•  1  • 

1  1  1 

1 

1 

1 

ft 

1  1 

1 

♦ 

>- 

3 

4  A  X  1  4/ 

1 

4- 

X  4  X 

X  X  X 

X 

X 

X 

V  x 

3. 

X 

t— 

© 

«-»  />  a-t  iT  O 

o 

r 

r»  k*  k. 

at  x  c 

X 

4 

O  A 

vC 

IT 

M 

• 

^  in  s.  c  x> 

a 

© 

©  ^  CM 

h-  m  JO 

>c 

© 

o 

CM  CM 

ps> 

X 

O' 

m 

GC  iC;  PO  4 

CM 

«-4 

(V  M 

s.  r  cm 

X 

X 

n 

X  X 

a-* 

m 

n  ^  X)  \  CV 

© 

c 

CM  ©  CM 

in  c. 

A. 

m 

x  n 

<. 

n* 

3 

II 

• 

• 

a  a  a 

a  a  a 

a 

a 

a 

a 

a  a 

a 

a 

H- 

Z 
»— • 

X 

^ 

H  ^  fO 

p*  n 

4- 

^4 

m 

m 

CM  CM 

IM 

at 

►— 

o  o  o  o  o 

m 

ro 

o  o  o 

CM  wM  CM 

CM 

CM 

fM 

M 

CM  CM 

A 

aa 

X 

o  o  o  o  o 

O 

O 

o  ©  o 

-©  o  c 

O 

C 

© 

o 

c  o 

C 

© 

h- 

3- 

+  4-4-4-4- 

1 

1 

4-4  4' 

i  •  I 

1 

1 

ft 

1 

1  1 

1 

ft 

r 

M 

o 

1>  X  'ft,  X  X 

<1 

X 

XXX 

X  X  X 

X 

X 

i 

X  X 

X 

< 9 , 

o 

3 

o  ©  o  o  o 

J" 

o  o  o 

<n  x\  n- 

c* 

© 

> 

n 

-V  c 

> 

at 

►■t 

X 

©  ©  ©  o  © 

fk. 

o 

©  ©  o 

<)  c  n 

no  CM  O 

c\ 

Ai  © 

3 

K«. 

3 

o  ©  ©  ©  o 

m 

©  C  G 

n  ro 

n  © 

n 

c  x. 

CM 

»— 

3 

o  o  o  ©  © 

© 

'O 

o  o  o 

in 

rvi  n  © 

K>. 

>  N- 

© 

3 

•J 

•  •  •  •  » 

• 

• 

a  a  a 

a  a 

• 

a 

• 

• 

a  a 

• 

a 

sJ 

X 

0  0  0  3© 

♦H 

©  O  © 

N  Xi 

Pw 

4) 

X 

n  x 

m 

>o 

-L 

3 

3 

3 

*— 

-O 

3 

©  ©  ©  ©  © 

© 

© 

©  ©  © 

©  ©  © 

© 

© 

© 

© 

©  © 

© 

— 

-d 

z 

o  ©  ©  ©  o 

o 

© 

O  ©  © 

©  ©  © 

© 

© 

O 

© 

©  G 

© 

<t 

-J 

t—t 

0  0  0  3  0 

o 

• 

©CO 

o  c  o 

o 

© 

o 

o 

o  o 

© 

< 

o 

o 

uO 

o  t)N-  «  »n 

o 

rO 

CM  ^  © 

W4  CM  ro 

^4 

in 

>o 

N* 

X>  1> 

o 

/3 

z 

3 

•  •  »  •  • 

• 

• 

a  a  a 

a  a  a 

a 

a 

a 

a 

a  a 

a 

3 

< 

O 

o  o  o  o  o 

© 

O 

0 

0 

0 

o  ©  © 

© 

O 

© 

© 

o  c 

at 

u 

1  1  1 

1 

1 

1 

1 

1  ft 

1 

70 


o 

o 

4 

x 

o 

• 

^  o 

uJ 

u 

<  % 
u  M 
Q£  O 

3  cr 

CO 


X  ^ 

o  o 
ct  i 
ik  x 

o 
m  © 
z  o 
o  © 


o  II 
UJ  o 
-J  X 

u» 

d 

CC  to 


©  Lk  I-  tO 

O  O  <  2 


© 

z 

O 

V  ♦ 

•H 

«-» 

CM 

n 

«-< 

CM 

CM 

CM 

CV 

© 

X 

•— I 

i— » 

c 

© 

c 

c 

c 

c 

c 

C 

© 

C 

c 

c 

O 

© 

c 

C 

C 

C 

c 

c 

© 

id 

o 

1- 

3 

J 

• 

1 

• 

« 

1 

1 

1 

• 

• 

I 

1 

1 

• 

1 

• 

1 

1 

1 

• 

4 

X 

X 

o 

<t 

x 

X 

x 

x 

X 

at 

a 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

o 

UJ 

1- 

in 

© 

CM 

4r 

in 

V* 

h 

o 

ro 

fO 

K 

ro 

CM 

ro 

© 

CM 

*n 

3 

o 

_) 

O 

o 

in 

>c 

uo 

CM 

O 

vC 

X 

O 

<r 

o 

ro 

V"* 

Xj 

*■"« 

in 

© 

o 

Z 

o 

Lk 

1- 

cr 

X 

o 

ro 

JO 

•X 

a 

N» 

JO 

JO 

O 

CM 

> 

T 

a 

•c 

o 

ww 

u 

if 

rr 

if 

>< 

4 

rr 

* 

a 

M. 

If 

rr 

rr 

c 

V-1 

j 

•» 

a 

X 

c 

X 

X 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

* 

d 

z 

3 

*-» 

*-» 

•-i 

•-» 

X 

•o 

w+ 

r«4 

rH 

r-» 

«-4 

> 

> 

© 

“V 

-J 

►<- 

u. 

X 

o 

<3 

o 

o 

O 

o  o 

a 

O 

o 

o 

o 

3 

O 

O 

o 

O 

o 

O 

o 

© 

3 

o 

o 

UJ 

UJ 

o 

o 

o 

3  O 

o 

O 

o 

o 

o 

O 

3 

©  o 

O 

o 

o 

o 

o 

O 

o 

X 

H- 

X 

4 

4 

4 

4 

4- 

4 

*4 

4> 

4 

+ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

■4 

X 

3 

Ld 

UJ 

> 

X 

X 

X 

X 

J 

X 

at 

vX 

% 

X 

X 

X 

X 

% 

X 

X 

X 

X 

X 

X 

X 

z 

3 

X 

o 

o 

o 

o  o 

3 

o 

o 

o 

o 

<3 

3 

o 

o 

o 

o 

o 

a 

3 

o 

(9. 

•«r 

X 

© 

o 

© 

o 

O 

O 

© 

o 

© 

c 

© 

© 

e  c 

© 

© 

© 

o 

o 

O 

o 

U! 

3 

o 

o 

o 

o 

o 

3 

o 

o 

o 

o 

O 

O 

3  O 

o 

© 

© 

© 

o 

o 

© 

►— 

/> 

Z 

o 

3 

o 

o 

o 

O 

3 

3 

3 

o 

3 

3 

3 

O 

3 

o 

3 

© 

3 

o 

o 

►— « 

3 

• 

• 

• 

• 

• 

c 

* 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

— J 

to 

CM 

o 

o 

o 

0 

0 

o 

O 

o 

o 

o 

O 

O 

0 

0 

o 

© 

O 

o 

O 

c 

o 

* 

T 

3 

‘d 

♦ 

>o 

< 

s. 

Tw 

X 

X- 

o 

c 

o 

X 

C 

© 

N. 

o 

s. 

© 

o 

JO 

i/5 

> 

<v 

© 

© 

c 

o 

o 

o 

© 

c 

© 

© 

o 

© 

O 

o 

© 

c 

c 

o 

o 

e 

o 

UJ 

o 

a 

• 

1 

• 

1 

I 

1 

4 

1 

4 

1 

3 

4 

1 

4 

• 

4 

• 

f 

4 

1 

>- 

3 

© 

X 

X 

1/ 

X 

X 

% 

4 

X 

X 

i 

X 

X 

X 

X 

X 

X 

X 

;x 

X 

'J 

r 

rr) 

>r 

c 

IT 

*-• 

CM 

'O 

o 

*\J 

c 

CM 

K. 

© 

n 

© 

m-* 

c 

IT- 

o 

ro 

— « 

M 

« 

V. 

> 

:> 

CM 

c 

> 

CM 

o 

N. 

o 

5T 

o 

3 

o 

© 

N. 

o 

>c 

CM 

o 

JO 

o 

to 

.  ^ 

© 

N- 

K. 

© 

4 

© 

c 

X 

c 

CV 

in 

© 

a 

Cl 

© 

V 

© 

c 

a 

3 

> 

© 

jo 

•J 

X 

X 

a 

o 

o 

3 

O 

’X 

© 

o 

3 

to 

UJ 

It 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

j 

• 

• 

• 

• 

• 

• 

• 

• 

to 

*— 

X 

CM 

fM 

N* 

4“ 

ro 

© 

vH 

o 

© 

JO 

o 

ro 

o 

JO 

o 

CM 

ro 

© 

c 

z 

M 

►- 

JO 

jo 

JO 

jo 

© 

JO 

n 

>c 

o 

o 

O 

o 

© 

‘N. 

© 

o 

X 

X 

O 

o 

© 

c 

c 

o 

© 

c 

Q 

o 

o 

a 

© 

e 

c 

c 

© 

c 

O 

c 

© 

u 

1- 

o 

• 

• 

• 

e 

• 

I 

« 

• 

7 

• 

• 

i 

I 

i 

• 

• 

• 

1 

1 

• 

• 

CT 

X 

M 

1, 

x 

a. 

X 

X 

X 

%> 

X 

X 

9 

X 

X- 

X 

X 

Cj 

X 

X 

X 

X 

X 

d, 

<1 

o 

•d 

1*0 

JO 

— •  © 

rr 

rr 

3 

CM 

JO 

'X 

*-» 

ro 

ro 

<5T 

4 

o 

NO 

UJ 

M-J 

X 

© 

r-* 

o 

© 

JO 

ro 

>C 

r 

X 

o 

s. 

JO 

5T 

3 

CM 

K. 

© 

oO 

-J 

vO 

co 

o 

r-* 

ro 

4 

CM 

o 

rr 

ro 

© 

ro 

w~4 

0; 

ro 

d 

UJ 

CM 

o 

n© 

ro 

> 

ro 

N» 

CM 

© 

O 

-t  © 

X 

3 

o 

• 

• 

• 

• 

• 

• 

• 

• 

♦ 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

id 

X 

cm 

CM 

*0 

er 

JO 

CM 

o 

> 

n 

x> 

>0 

4* 

X 

MJ 

•-» 

X 

3 

3 

UJ 

3 

*— 

✓5 

d 

O 

3 

o 

3 

3 

3 

3 

o 

3 

3 

3 

3 

3 

o 

3 

3 

3 

o 

3 

3 

fc— 

d 

z 

3 

3 

3 

r~* 

O 

3 

3 

3 

3 

3 

O 

3 

3 

3 

O 

3 

O 

o 

3 

O 

-1 

<t 

<1 

3 

►— 1 

c* 

O 

© 

o 

© 

O 

© 

© 

© 

O 

© 

O 

O 

O 

o 

O 

© 

o 

O 

O 

M 

o 

O 

to 

o 

X 

© 

JO 

O’ 

ro 

CM 

o 

CM 

ro 

in 

>0  N- 

© 

O 

O 

►- 

3 

tO 

z 

3 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

» 

• 

• 

• 

• 

• 

• 

• 

• 

3 

4 

41 

o 

o 

o 

o 

o 

o 

o 

3 

© 

3 

o 

o 

© 

3 

3 

3 

3 

3 

© 

3 

OC 

w 

1 

• 

• 

« 

1 

• 

• 

I 

• 

• 

71 


o 


o 

♦ 

in 

in 

in 

jo  3  <n 

m 

jo 

jo  in  x 

in 

x 

x  x  x 

K  X 

x 

x 

3 

a 

o 

o 

o 

o  o  o  o  o 

o 

o 

o 

o 

o 

c  c  o 

o  o 

o 

© 

o 

o 

» 

• 

i 

•  1  1 

• 

i 

i 

1 

i 

i 

1 

•  I  • 

a  i 

I 

1 

1 

• 

X  a 

a 

a 

l  d,  (t 

a 

X 

X 

a 

X 

X  X 

XXX 

X  X 

X 

X 

X 

^4 

o 

© 

»«4 

3 

K  «  Q 

cm 

3 

X 

*-« 

x 

K 

X 

o  cm  cm 

x  c 

N- 

n 

o 

CM 

<X> 

cm  m  cm 

ro 

O' 

© 

o 

D  K- 

3 

3  CM  N* 

CM  X 

*A 

uJ 

3 

in 

3 

o  x  «*» 

3 

3 

*> 

D 

vO 

x 

n 

a  v 

X)  M  x> 

c 

3 

© 

00 

ir 

ro 

v  —  rs. 

N- 

ro 

o 

3 

o 

rO  ro  IT 

3  K- 

c 

A 

m 

3  *  •••••«••«*••••••••••  ■ 

La.  H  ro  X  X  -a  O-  JO  3  4-4(MOroCM4~iX(Mr033  ,«*  X 

cr  o 


3  X 

3 

O' 

V 

3 

3 

3 

n  m  n  n  in 

in  in  m 

X 

rO 

tO 

o 

o  o 

O  O 

o 

©  o 

o  o  o 

o 

O 

O 

© 

© 

c  © 

© 

© 

O 

• 

1 

1 

ft 

1 

• 

1 

fe 

1 

1 

1 

i 

ft 

1 

I 

I 

a  i 

a 

fe 

9 

X 

CM 

m 

X 

X 

X 

X 

1 

X 

X 

X 

X 

X 

i 

a 

a 

X 

a 

a 

a  .a 

a 

a 

a 

c 

o 

4-* 

o 

o 

<* 

in 

in 

r* 

in  o 

h-  > 

cc 

JO  ^  K. 

0  3  0 

CM 

o 

<r 

+ 

c 

VC  o 

m  cm 

O  OO 

o 

k.  ro  in  m  o 

4-1  C> 

CM  O  CD 

o 

3 

U- 

X 

K. 

<y 

«* 

%n  K. 

cc 

N- 

K>  O 

ro 

x  © 

3  O  ro 

k.  r- 

X  o 

a 

o 

ro 

K. 

a* 

in 

N- 

X 

ro 

— »  ro  CM  O 

»n 

W 

3 

O  (M  O 

CM 

X 

1/5 

o 

• 

• 

• 

• 

* 

• 

• 

• 

• 

• 

» 

• 

• 

• 

• 

• 

•  • 

• 

• 

• 

z 

o 

r\j 

CM 

ro 

ro 

CM 

rH 

4-4 

4-4 

4-4 

CM 

1 

3 

2 

H  4-4 

«-A 

ro 

CM 

o 

• 

►A 

fO 

ro 

ro 

ro 

ro 

ro 

-3- 

3” 

3 

3 

3 

3 

3 

3 

3  JO 

jo  in  in 

tr 

Ol 

o 

O  O 

O 

© 

© 

© 

O 

O 

O 

O 

O 

O 

© 

© 

© 

o  o 

o 

o 

O 

o 

II 

• 

1 

1 

• 

1 

1 

1 

1 

1 

1 

a 

a 

a 

a 

a 

a 

i  i 

1 

i 

a 

UJ 

o 

3 

X 

<x 

a 

a 

a 

a 

a 

9. 

a 

a 

a 

a 

a 

a  a 

a 

a  a 

a 

a 

a 

3 

X 

> 

ro 

X 

c 

X 

X 

ro 

3 

> 

X 

X 

ro 

in 

c 

4-4 

3  3 

X 

3 

X 

u. 

IT 

O 

*-« 

S- 

o 

fO 

X 

X 

a 

4-4 

ro 

4—> 

a 

x  r 

IT 

r 

CT\ 

uJ 

CM 

ri 

<£> 

CM 

X 

ro 

n 

n 

o- 

o. 

n 

X 

3 

3 

o 

CM  © 

D 

CM 

o 

tr 

n 

ro 

ro 

-A 

o 

O 

CM 

hw 

ro 

4-4 

3 

O 

3 

K- 

>  N. 

rH 

ro 

UJ 

• 

• 

• 

» 

• 

* 

• 

• 

• 

• 

* 

* 

• 

• 

• 

• 

•  * 

« 

• 

• 

v.< 

u. 

tO 

«-4 

•-A 

4-* 

rH 

X 

X 

4-4 

X 

CM 

4-4 

© 

X  3 

N- 

X 

4-4 

o 

o 

< 

z 

X 

z 

c 

CO 

ro 

ro 

ro 

ro 

m 

ro 

r 

ro 

ro  ro 

ro 

3 

3 

3 

3 

3  3 

3 

3 

CM 

4T- 

►— 

•— 1 

c 

c- 

c 

C 

C 

C 

C 

C 

C 

C 

c 

C 

c 

C 

C 

c 

C  c 

C 

© 

C 

UJ 

c 

1- 

1 

• 

t 

1 

• 

1 

I 

« 

a 

a 

1 

a 

a 

a 

• 

a 

a  a 

a 

1 

1 

X 

£X 

u 

m  a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

X 

a 

a 

3 

a 

a 

a  a 

a 

a 

a 

X 

o  uj 

o 

CM 

4-1 

x 

ro 

CM 

—A 

x  o 

X 

cm  in  x 

o 

4-4 

o 

o  CO  CO 

3 

D 

3 

o 

CO 

ro 

CM 

*y 

X 

o 

o 

rw 

K. 

K 

3 

CC 

ro  iT; 

X 

x  in 

4-*  N- 

© 

z 

o  u 

b- 

O 

O 

ro  X 

n 

CM 

n 

N- 

ro 

n 

ro 

X 

-o 

tr 

X 

40  4-4 

no 

IT 

U. 

N- 

c 

K 

*- 

c* 

47 

\r 

c 

s- 

l\ 

c 

N 

sy 

V- 

r-  C 

C 

K 

(N 

y 

c 

oc 

QC 

• 

• 

• 

m 

• 

• 

a 

• 

• 

• 

• 

• 

• 

• 

• 

• 

4  • 

• 

• 

• 

aJ 

3 

n 

o 

a- 

■n 

n 

7 

CM 

ro 

VI 

4-1 

CM 

n 

n 

n 

3  n 

•o 

n 

,J 

<t 

ft— 

U 

X 

o 

3 

cv 

CM 

CM 

CM 

CM 

CM 

CM 

CM 

CM  ro 

CM  ro 

o 

ro 

ro 

ro 

ro  ro 

ro 

ro 

4-A 

Z3 

UJ 

UJ 

o 

o 

O 

O 

O 

© 

O 

O 

O 

o 

O 

© 

o 

© 

O 

O 

©  O 

O 

O 

o 

cr 

-1 

ft— 

X 

1 

1 

1 

1 

• 

1 

1 

I 

a 

a 

a 

a 

s 

a 

a 

1 

a  i 

a 

I 

a 

X 

\3 

UJ  UJ 

rvj 

X 

a 

% 

a 

X 

X 

t. 

X 

9 

a 

X 

a 

a 

a 

a. 

a 

a  a 

a 

a 

a 

Z 

Q 

X 

> 

o 

VO 

CM 

X 

o 

o 

ro 

JO 

3 

X 

X 

m 

K. 

*4 

> 

ro  k. 

X 

n 

o 

X 

3 

X 

h* 

MO 

c 

<r 

X 

o 

*•4 

s- 

X 

CM 

X 

CM 

X 

X 

3 

o  c 

in 

o 

N- 

uJ 

3 

< 

Kw 

N. 

X 

N» 

o 

> 

ro 

3 

CM 

ro 

,M 

h- 

o 

CM 

O-  O 

3 

> 

> 

►— 

jy 

Z 

-o 

■*) 

•M 

3 

«-A 

3 

n 

^o 

n 

'O 

r— t 

N- 

© 

3 

>  > 

TO 

■o 

OJ 

3 

• 

• 

• 

« 

• 

• 

• 

• 

• 

a 

• 

• 

• 

• 

• 

• 

•  « 

• 

• 

» 

—I 

CVI 

CM 

CM 

CM 

CV 

CM 

CM 

•■•4 

-4  X 

4-4 

X 

JO 

3  CM  CM’ 

4-4  4-1 

4-4 

4-4 

CM 

a 

X 

O 

uj 

+ 

CM 

CM 

(M 

CM 

CS 

CM 

CV 

CM 

CV 

CM 

CM 

(M 

C\ 

O  v\j  fO 

ro  O 

-o 

ro 

U0 

> 

X 

O 

O 

O 

C 

o 

O 

© 

O 

o 

© 

© 

© 

o 

o  o 

© 

©  © 

© 

O 

c 

UJ 

o 

1 

1 

1 

« 

1 

1 

1 

a 

a 

1 

1 

1 

1 

• 

a 

a 

a  a 

1 

1 

a 

•— 

>- 

o 

•-4 

X 

X 

ft/ 

■x 

4 

X 

x. 

i 

*/ 

t 

a 

a 

a 

a 

a 

a 

a  a 

ft. 

a 

i 

< 

V— 

o 

T 

v 

*-« 

N. 

3 

CM 

C 

C- 

4—1 

s 

X* 

> 

4-4 

©  s 

X 

m 

1— 1 

t— 4 

• 

3 

c 

c 

wT 

m 

S. 

N- 

X 

3 

X 

r> 

X 

m 

X 

ro 

4-4 

JG  0- 

3 

v-4 

3 

CJ 

i/5 

ro 

fO 

n 

CM 

ro 

CV 

IT 

'X* 

3 

n 

s. 

X 

m 

3 

CM  ac 

o  d 

O 

22 

Z 

O 

iT 

r«^ 

tr 

r^j 

L 

IM 

© 

rO 

o 

nr. 

c  x 

V 

4-4 

ro 

o') 

UJ 

II 

• 

• 

• 

• 

• 

• 

« 

• 

« 

• 

• 

• 

• 

• 

• 

• 

•  • 

• 

* 

• 

to 

h- 

X 

> 

> 

X 

> 

> 

V 

N* 

N- 

in  ro 

3 

ro 

4*4 

X 

—4 

X) 

X 

N. 

O 

«r 

z 

—4 

1— 

CSJ 

CM 

CM 

CM 

CM 

CM 

CM 

Ai 

4-4 

r\i 

CM 

CM 

M 

CM 

vM  M 

Ai 

CM 

X 

r 

o 

O 

O 

O 

C 

O 

o 

© 

c 

o 

3 

©  O 

© 

© 

O 

O  © 

e 

o 

o 

H- 

o 

1 

« 

1 

1 

ft 

1 

1 

a 

a 

1 

1 

1 

a 

a 

a 

a 

a  a 

a 

a 

a 

X 

X 

M 

O  <3 

it 

n§„ 

c* 

l 

a 

<9 

a 

a 

a 

a 

a 

a 

<* 

a  a 

a 

a 

(9. 

<1 

© 

OJ 

o 

> 

< 

n 

t 

X 

c 

o 

m 

4-4 

X) 

3 

X 

N-  X 

N. 

CM 

v>- 

UJ 

X 

-o 

O 

C h 

X 

■\J 

o 

rrs 

o 

no 

X  X 

> 

X  o 

o 

ro  rv 

3 

K. 

O 

t/> 

-1 

o 

K 

X 

ro 

> 

rO 

© 

C 

ro 

X 

a 

X  o 

JO 

CM 

3 

~u 

UJ 

m 

N- 

m 

■o 

O 

n 

CM 

4-4 

CM 

s- 

jo  in 

o  o 

© 

3 

O 

X 

o 

o 

• 

• 

» 

• 

• 

• 

« 

• 

4 

« 

• 

• 

• 

• 

• 

• 

•  • 

• 

• 

« 

UJ 

X 

CM 

o 

>1* 

ro 

n 

X 

V- 

4-4 

H 

rw 

3 

o 

o 

CM 

CM  Ai 

CM 

rH 

> 

vX 

3 

UJ 

3 

— < 

— — 

yj 

aJ 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

o 

© 

©  © 

© 

© 

r— 

*— 

-J 

Z 

O 

3 

3 

3 

3 

3 

3 

© 

3 

3 

3 

O 

3 

© 

o 

©  © 

© 

© 

-1 

< 

< 

■—4 

c 

O 

C 

3 

O 

O 

3 

3 

O 

O 

O 

O 

© 

O  © 

c 

o  o 

G 

o 

< 

M 

CJ 

i/)  o 

00 

S- 

nO 

n 

-o 

CM 

4-1  O 

^4 

CM 

fO 

3  m 

X 

N-  X> 

O 

o 

►- 

3 

to 

z 

3 

• 

• 

• 

• 

r 

• 

• 

• 

• 

• 

• 

« 

• 

• 

• 

•  • 

• 

• 

© 

< 

o 

o 

o 

3 

3 

O 

o 

3 

O 

o 

o 

o 

© 

3 

o 

o 

© 

©  © 

o 

rH 

i- 

CE 

w 

1 

1 

1 

a 

a 

ft 

a  a 

1 

• 

RAO  I A  T  1  ON  RESEARCH  ASSOCIATES  ^LlTf.fS  PROBLEM  1600 


72 


3 
O 

4 

x 

o 

• 

^  o 


c 

<1  % 
U.  II 

a:  o 
3  or 
1/5 


x  ra 
c  o 
or  4 
u.  x 

o 
cr  o 

2  O 

O  • 


e>  it 
UJ  O 
-J  X 
u. 

Jj 

X  i/5 
UJ 

^  k-  i/> 


o  <  ? 


2* 

o 

w* 

»PH 

V-4 

CM 

CM 

CM 

CM  CV 

CM 

CM’ 

CM* 

o 

-wL 

►-* 

c 

c 

c 

c 

o 

o 

c 

c 

c 

c 

o 

o 

c 

o 

c 

c 

c 

c 

C 

c 

e 

UJ 

o 

*- 

3 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

4 

X 

X 

o 

<1 

at 

a 

X 

a 

at 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X  X 

X 

X 

X 

X 

o 

UJ 

1- 

nO 

m  o  ^ 

in 

<r 

00 

CM 

K- 

o 

CO 

CM  O 

K. 

H  N- 

NO 

<r 

H 

3 

o 

3 

O 

iO 

a 

r 

X 

cT 

«-« 

0s 

H 

>c 

00  cc 

o 

o 

CM 

2" 

u> 

u. 

in 

cr 

in  ^ 

o 

o 

co  o 

o 

in 

o 

o 

o 

in 

cr 

>o 

n  in 

CM* 

Ll. 

IT 

i* 

tr 

< 

N* 

ir 

< 

* 

K 

cc 

K 

c 

a 

to 

CM 

O 

or 

X 

• 

• 

<• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

3 

«-• 

«-• 

•-< 

rH 

•-4 

n 

CO 

n 

-o 

CM 

CM 

CM 

«a 

k~ 

u 

u> 

3 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o  o 

o  o 

o 

o 

o 

o 

o 

O 

O 

O 

uaJ 

UJ 

c 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

O 

o 

O 

3 

H* 

X 

4 

♦ 

4 

4 

♦ 

4 

4 

♦ 

♦ 

Hk 

-f 

♦ 

•f 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

3 

UJ 

UJ 

!> 

X 

a 

t 

a 

at 

X 

X 

X 

X 

« 

X 

X 

X 

X 

X 

X 

X 

X 

X 

a 

X 

2 

o 

X 

O 

o 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

O 

<1 

T 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

c 

o 

o 

o 

o 

o 

o  o 

o 

3 

o 

o 

o 

o 

o 

o 

a 

o 

o 

o 

o 

c  o 

o 

o 

3 

o 

o 

c 

o 

o 

/* 

* 

o 

o 

3 

o 

o 

o 

o 

o 

o 

o 

o 

o 

3 

3 

o 

o 

3 

3 

3 

o 

3 

3 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

lO 

Os) 

;^v 

o 

o 

0 

0 

o 

o 

o 

o 

o 

o 

o 

0 

0 

o 

o 

o 

o 

o 

o 

o 

o 

uJ 

4 

o 

o 

S- 

N- 

>c 

K. 

K. 

o 

o 

K. 

c 

cc 

o 

o 

o 

o 

o 

s\ 

> 

X 

e 

c 

o 

o 

c 

o 

o 

e 

o 

o 

o 

o  o 

o 

o 

o 

o  c 

o 

o 

o 

o 

i 

1 

I 

1 

1 

1 

1 

i 

1 

♦ 

+■ 

1 

+ 

1 

+ 

4 

4 

4 

4 

4 

1 

>- 

3 

X> 

i/ 

X 

t 

l 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

w- 

C\J 

"C 

Of 

X 

N* 

(V 

k*. 

0C 

c 

c> 

o 

o 

e 

o 

O 

o 

c 

c 

r— 4 

• 

N* 

nO 

cr 

X 

CM 

n 

o 

in 

o 

Q 

o 

3 

ro 

o 

3 

o 

o 

3 

o 

CO 

uO 

m 

IT 

o 

in 

c 

IT 

cc 

rr 

o 

o 

o 

e 

s. 

c 

c 

o 

o 

c 

c 

o 

C 

4“« 

-0 

in 

in 

c 

o 

o 

o 

/ — i 

3 

c 

o 

c 

o 

UJ 

ii 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

►— 

-y 

X 

ro 

ri 

CM 

cm  in 

co  ao 

m 

o 

o 

CM  O 

o 

o 

0 

0 

o 

c 

«T. 

H- 

*n 

in 

n 

in 

SO 

n 

in 

o 

>o 

-G 

s- 

vO 

N. 

N» 

o 

JO 

vO 

N. 

N. 

cr 

X 

o 

o 

a 

o 

o 

o 

o 

o 

o 

o 

o 

o 

c 

o 

o 

o 

o 

o 

o 

c 

o 

H- 

c 

i 

1 

i 

i 

1 

i 

i 

1 

1 

1 

1 

1 

1 

1 

4 

1 

1 

1 

1 

1 

i 

X 

♦-M 

h- 

X 

X 

3/ 

X 

X 

X 

X 

X 

a. 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

O 

UJ 

X 

<x> 

o 

<T 

CM 

o  in 

'G 

a 

<3 

JO 

co 

NO 

-T 

«M 

►M 

X 

o 

<r 

o 

m 

o 

co 

n 

CV  K» 

oo 

CM 

o 

N- 

o 

~  o 

On 

o 

3 

o 

o 

K.  CO 

o 

>c 

X) 

o 

O 

«-4 

CO 

oo 

•H 

in 

o 

CO 

o 

in 

NO 

o 

cr 

UJ 

o 

n  cm 

GO 

N. 

o 

n 

o 

>4> 

o 

OO 

o 

cr 

cr 

3 

NO 

*-« 

3 

o 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

uJ 

X 

♦H 

CM 

n 

o 

o 

n 

CM 

> 

3 

no 

CM 

n  > 

X 

3 

UJ 

3 

*-s 

►— ■ 

3 

o 

o 

o 

o 

o 

o 

3 

o 

o 

3 

o 

3 

3 

3 

o 

3 

3 

O 

3 

o 

*- 

o 

o 

o 

o 

o 

o 

O 

o 

o 

o 

3 

o 

3 

o 

o 

3 

3 

O 

3 

3 

-i 

< 

3 

►-* 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

3 

o 

o 

o 

o 

o 

o 

O 

O 

o 

o 

O 

i/> 

c* 

oo 

N. 

vO 

in 

5* 

m  CSJ 

o 

CM  CO 

*> 

N-  oo 

o  o 

H* 

t-0 

X 

3 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

◦ 

4 

U> 

o 

o 

o 

o 

o 

o 

C 

o 

o 

o 

o 

o 

o 

o 

o 

o 

3 

o 

o 

«-4 

1— 

w 

1 

1 

1 

1 

1 

1 

• 

1 

1 

1 

73 


o 

o 


4 

m 

m  m  in 

o 

m  m 

in  m  « 

o 

© 

K  O  O 

K.  K. 

N- 

K  N- 

o 

X 

o 

o 

o  o 

o 

o  o 

o  o  o 

o 

© 

O  ©  © 

©  © 

© 

©  © 

o 

o 

« 

• 

1  1 

1 

•  i 

•  i  • 

1 

4 

1  4  1 

•  1 

1 

1  1 

1 

■ 

©  (ft. 

CL 

<%  (X 

(ft 

ft  <x 

ft  <>  ft 

ft 

ft 

ft  ft  ft 

ft  ft 

ft 

ft.  ft 

(X 

o 

© 

h- 

cm 

«-4 

<> 

—  Oh- 

o 

-4  O  X 

^  — 

© 

m  © 

m 

►w  <t> 

o 

•-• 

CM  ^ 

ft  ft  O 

© 

>  o  o 

CM  CM 

© 

CM  h- 

m 

Ui 

o 

> 

o  in 

m 

ft  ft  > 

© 

O 

O  3 

o  o 

© 

CM  © 

CM 

o 

o 

in 

<J  ac 

O 

▼-*  © 

o  rn  m 

m  o 

CM  O  > 

©  © 

> 

o  rw 

CM 

< 

* 

• 

• 

•  • 

• 

•  • 

•  *  • 

• 

« 

•  •  • 

•  ■ 

• 

■  • 

ft 

u 

n 

m 

© 

6 

5 

6 

4 

5 

1 

4 

2 

0 

l 

0 

6 

-4 

CM  © 

in 

X 

a 

3  ac 

o 

o 

*  O’ 

o 

o  o 

ft  ft  ft 

in 

'O  ©  *0  'C 

in  n- 

©  ©  ^ 

m 

</> 

o 

o 

o  o 

o 

o  o 

o  o  o 

a 

o 

©  ©  o 

©  o 

©  o  © 

© 

i 

1 

1  1 

1 

1  1 

1  1  1 

1 

1  1  « 

i  i 

• 

1  1 

• 

X 

cm 

X 

X  X 

X 

(X  X 

ft  ft  ft 

X 

ft 

ft  ft  ft 

ft  ft 

ft 

ft  ft 

ft 

a 

o 

in  m 

m  it* 

iTt 

o  o 

o  cn  a 

in 

ro 

ITO  h 

o  o 

« 

K  rr, 

© 

a: 

4 

m 

CM 

CM  O 

o 

O  CM 

&  rr )  t,. 

*.  4 

a 

— t  od  in 

©  m 

o  ©  o 

in 

u 

X 

© 

N- 

n-  m 

CM 

CM  O 

O  O  ^ 

<r 

ft 

>  CM  — 1 

© 

© 

m  oo 

© 

o 

4-» 

O 

CM  m 

rn  o 

^  ©  ft 

in 

o 

—4  X l 

CM  N- 

o 

o  m 

CM 

i/; 

© 

ft 

• 

•  • 

• 

•  • 

•  •  • 

* 

m 

•  4  4 

•  ■ 

• 

*  • 

z 

o 

CM 

CM 

cm  m 

CM 

2 

2 

l 

l 

1 

CM 

9 

1 

1 

—4  —4 

o 

9 

2 

CV 

o 

• 

CM 

m 

m 

m  m 

O 

O  -ft 

ft  ft  ft 

in 

ft 

in  o  m 

o  o 

© 

n  © 

fn 

»— 

o 

o 

o  o 

o 

o  o 

©  o  o 

© 

O 

©  ©  o 

©  ©  o 

o  © 

o 

o 

H 

« 

• 

l  l 

1 

1  1 

*  1  1 

« 

1 

i  I  i 

1  1 

• 

t  i 

i 

UJ 

o 

o  a 

<x 

<x  a 

ft. 

ft  (X 

ft  ft  ft 

ft 

ft 

ft  ft  ex 

ft  ft 

ft 

ft  ft 

a 

_J 

X 

© 

o 

CM  O 

IT 

•4  «-t 

©  ft  o 

m 

rn 

n  o  <r 

n  o 

o 

*4  S 

o 

u 

m 

cv 

CV  < 

O 

— •  cc 

ft  C  ft 

X 

o  *-*  lO 

o  in 

m 

fn  O' 

4ft 

-U 

4ft 

© 

n  o 

© 

4-4  O 

Oft© 

ft 

3 

— 4  CM  > 

©  44 

n  © 

m 

r 

CVJ  o 

CM  O 

O 

ft  ft 

CM  flO  m  K- 

©  O  rn 

n  cv  k 

©  O 

4ft 

UJ 

• 

* 

•  • 

• 

*  • 

•  •  • 

• 

• 

«  *  • 

V  • 

• 

»  • 

ft 

o 

u 

*— 

4ft 

w~*  —4 

O' 

z 

6 

x>  m  m 

ft 

—4 

CM  m  in 

©  in 

© 

2 

2 

> 

o 

a 

ftf 

z 

© 

X 

o 

m 

m 

rr  m 

<n  m 

m  m  fn 

ft 

ft 

o  o  in 

in  o 

in  it  m 

CM 

4- 

a 

ft— 

►— 1 

c 

C 

c  c 

c 

c  c 

c  c  c 

© 

c 

c  c  c 

c  © 

c 

c  c 

C 

U' 

c. 

►- 

• 

1 

1  • 

1 

i  i 

1  1  1 

l 

1 

•  •  i 

i  i 

i 

1  1 

1 

AC 

a: 

o 

rn  x 

X 

X  X 

(X 

ft  ft 

ft  ft  ft 

ft 

ft 

ft  ft  ft 

ft  ft 

<x 

ft  ft 

(X 

X 

c 

UI 

in 

o 

o  >o 

in 

CM  O 

ft  m  ft 

in  rn 

CV  -4  © 

o  o 

in 

o 

CM 

3 

c 

—I 

© 

c 

o  x. 

(>  3 

ft  o  o 

in 

ft 

rn  in  © 

©  cv 

m  ®  c 

© 

2C 

u 

u 

CM 

© 

O  3D 

VO 

ft  — • 

o  in  m 

m 

•-♦no 

©  o 

in 

44  CM 

o 

u 

< 

ir  k 

C  — 

'i  -  t\ 

a 

cv 

O  ( v  « 

CV 

m 

rr,  O 

cv 

X 

© 

rr 

rr 

• 

ft 

•  • 

• 

•  • 

•  •  • 

• 

• 

•  •  • 

■  • 

• 

ft  ft 

ft 

4J 

Z 

3 

n 

n 

o  o 

o 

ft 

cm  *n 

m 

n 

—4  —  »4 

n  44 

© 

CM  © 

o 

-1 

I— 

u 

X 

O  O 

<v 

CM 

CM  CM 

CM 

CM  CM 

CM  CM  m 

cn 

m 

o  rn  o 

o  o 

o 

O  O 

4ft 

Z) 

UJ 

uJ 

o 

O 

O  3 

O 

O  O 

0  0  3 

o 

o 

O  ©  O 

o  © 

o  o  o 

© 

X 

-J 

X 

1 

1 

•  t 

1 

ft  1 

t  1  1 

1 

• 

1  l  1 

1  1 

1 

1  1 

• 

uJ 

UJ 

r\)  ft 

X 

X  X 

ft 

ft  ft 

ft  3-  i 

ft 

ft 

ft  ft  ft 

X  ft 

(f 

ft  ft 

z 

Q 

© 

H 

rw 

o  > 

x> 

CM  — • 

rn  CM  & 

K. 

CM 

-•  O  © 

o  o 

> 

N-  CM 

© 

I 

4 

X 

O 

©  K. 

o 

*-»  CT 

a  cm  o 

m 

CV 

o  o  n 

in  o 

© 

©  m 

© 

uj 

3 

cv 

CM 

O  i> 

CM 

ft  in 

co  o  rn 

ft 

n 

O  rn  ^ 

^  CM 

rn  x> 

© 

— 

y) 

:m 

-M 

—  X3 

> 

©  ft 

-n  o  rn 

© 

©  H 

-n  ^ 

• n 

©  "n 

© 

*— i 

3 

• 

• 

• 

•  « 

-  • 

•  • 

»  •  • 

• 

• 

•  ,4  • 

•  • 

• 

•  • 

• 

in 

CM 

CM 

CM 

CM  ^ 

4-»  ^  OD 

in 

—4 

I 

9 

5 

3 

o 

CM  O 

4ft 

•ft 

r 

O 

aJ 

4 

CV 

CM 

CM  CM 

CM 

CM  (M 

CV  CM  CVJ 

CM 

CM 

m  m  o 

m  rn 

rn 

m 

4ft 

m 

> 

CL 

c 

C 

O  O 

C 

O  O 

o  c  c 

© 

© 

©  c  © 

©  © 

O 

©  3 

c 

uJ 

O 

1 

1 

•  1 

• 

•  • 

1  1  • 

i 

1 

l  l  » 

i  l 

l 

•  1 

1 

>- 

O 

44  X 

.ft. 

X  X 

X 

ft  ft 

111 

9> 

ft 

ft  ft  ft 

ft  ft 

ft 

X  X 

X 

<3 

fr— 

o 

4ft 

*v 

K  vT 

c 

n  k 

ft  N-  CM 

o 

© 

*4  or  s 

m  <i 

©  o 

cv 

M 

• 

> 

o 

©  O 

o  © 

x>  c  o 

© 

© 

-4  <  O 

44  CX 

© 

^  CM 

o 

{.' 

tr 

m 

o 

o 

CM  CV 

m 

©  o 

ft  © 

m 

CV 

in  o  o 

m  in 

a 

rn  © 

CM 

.  Ij 

X. 

<o 

N>  ~ 

i/'t 

N-  ft 

JC  X  c 

m 

ft 

(Vj  —  — 

©  'C 

Sw 

O  N. 

> 

UO 

UJ 

Ji 

• 

• 

•  • 

• 

•  • 

•  •  • 

• 

• 

•  •  ft 

*  • 

• 

ft  :• 

• 

X 

> 

o 

K.  O 

© 

6 

6 

»n  ft  ft 

rn 

—4 

4  f*)K 

CM  4^ 

H  C  H 

N. 

< 

z 

4ft 

*— 

CU 

CM 

CM  CM 

:m 

CM  CM 

lM  4-«4-l 

CM 

CM 

rv  cv  rn 

rn  m 

rn 

rn  m 

4ft 

X 

X 

o 

o  o 

c 

O  O 

coo 

© 

o 

©  ©  © 

o  © 

o 

©  o 

O 

w 

H- 

© 

1 

1 

1  1 

• 

1  1 

1  1  I 

1 

1 

B  1  1 

i  1 

1 

•  1 

1 

T 

1—4 

O  X 

d. 

<X  ft. 

•X 

ft  ft 

ft  ft  a 

ft 

ft 

ft  ft  ft 

ft.  «. 

a 

ft  ft 

X 

ji 

aJ 

c 

> 

X,  «-• 

o 

z>  > 

*>  CM  O 

< 

X 

CM  •-•  X 

O  n 

o 

CM  N. 

CM 

U’ 

•— » 

X 

"O  N- 

a' 

—  'C 

CM  IT-  CV 

> 

c 

>  O  CM 

CO  © 

o  © 

in 

\r. 

-J 

4ft 

in 

o 

o 

O  CM 

(M  K  i r 

rn 

CM 

©  —  (> 

N.  > 

© 

m  n. 

4ft 

oJ 

UJ 

o 

rn 

o 

'C 

ft  K. 

>0-4 

> 

n 

^  f4  > 

©  > 

© 

N-  Pn. 

CM 

X 

Zi 

3 

* 

• 

•  * 

• 

•  » 

•  •  • 

• 

t 

4  •  • 

•  • 

• 

•  • 

ft 

aJ 

nc 

n 

<* 

in  o 

n 

6 

7 

>  r4  H 

ft 

:m 

1 

1 

cm  n 

3 

2 

© 

z 

X 

Z3 

o 

— 

n 

3  o 

o 

3  3 

3 

3  3 

3  3  3 

3 

3 

3  3  3 

3  3 

3 

3  3 

-d 

£  3 

o 

o  o 

3 

O  3 

3  3  0 

3 

O 

3  3  3 

3  O 

3 

©  O 

-) 

< 

< 

3 

—■  © 

o 

o  o 

O 

O  O 

0  3  0 

O 

o 

o  o  o 

©  3 

O 

o  © 

4 

»— i 

o 

O 

i/>  o 

© 

n.  >o 

in 

ft  m 

CM  —4  O 

—•  CM 

"non 

©  K- 

© 

>  o 

t— 

O 

^5 

Z 

3  • 

• 

•  • 

• 

•  • 

•  •  • 

• 

• 

4  4  • 

•  • 

•> 

ft  ft 

3 

O 

O 

©  o 

o 

0 

0 

o 

0 

0 

0 

0 

0 

3 

o 

0 

0 

0 

O  3 

O 

O  44 

*-• 

oc 

1 

1 

1  1  1 

•  1 

1 

1  1 

RADIAT1UN  HtSEARCH  ASSOCIAIES  160C 


74 


o 

o 

♦ 

at 

o 

• 

— *  © 


uJ 

- 

© 

< 

% 

u. 

II 

a: 

o 

z> 

(X 

CO 

X 

CSJ 

o 

o 

a: 

♦ 

Lu 

at 

o 

CO 

o 

X 

o 

o 

• 

w 

CO 

h- 

u 

*1 

UJ 

3 

-1 

X 

u 

tr 

cO 

UJ 

u. 

►- 

lO 

o 

< 

Z 

z 

o 

9-* 

9-* 

9-* 

9-4 

9-4 

CM  CM 

CV 

tv  ro 

ro 

ro 

ro 

ro 

ro 

a 

tom 

c  c 

C 

c 

a 

c 

c 

o  c 

c 

c  c 

c 

c 

c 

© 

C 

c 

C 

© 

u 

o 

3 

•  • 

1 

1 

1 

1 

1 

1  1 

1 

1  1 

1 

• 

1 

1 

• 

1 

1 

i 

X) 

X 

o 

< 

x  x 

X 

X 

X 

X 

X 

X  X 

X 

X  X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

o 

UJ 

►— 

N-  «-* 

CO  o 

o 

m  o 

o  -5T 

o 

go 

CO 

cc 

CV 

O  ro 

CO 

o 

3 

o 

3 

O 

cu  tv 

o 

o 

o 

ro  o 

<T  >0 

sr 

o  o 

in 

o 

■9-4 

l  * 

CO 

o 

CV 

in 

Z 

o 

u. 

m  k. 

o 

n 

o 

O  CO 

n  o 

ro 

30 

m 

o 

ro  rc 

CO 

o 

u 

IT 

* 

<. 

IT 

>c 

r-  K 

K 

a.  — 

'C 

ir 

c 

M 

c 

•-1 

© 

c 

C 

X 

X 

•  • 

• 

• 

• 

• 

• 

•  • 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

Z 

3 

•-»  •“! 

1-4 

H 

1-4 

«-4 

H  H 

•-i 

x>  ^ 

H 

1-4 

n 

x> 

n 

n 

n 

«T 

u 

© 

o 

o  o 

o 

o 

a 

O  3 

o  o 

3 

o  o 

o  o 

o 

c 

o 

o 

o 

o 

UJ 

UJ 

o  o 

o 

o  o 

o 

o 

o  o 

O 

o  o 

o  o 

o 

o 

3 

o 

o 

o 

3 

*- 

X 

♦  ♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

+  ♦ 

♦ 

♦  ♦ 

♦ 

♦ 

♦ 

♦ 

4- 

-f 

♦ 

♦ 

f3 

UJ 

> 

X  x 

(X  X 

X 

X 

3 

X  X 

J 

X  X 

X 

X 

X 

X 

X 

X 

X 

X 

Z 

o 

X 

o  o 

o 

3 

o 

o 

a 

o  o 

O 

o  o 

o  o 

o 

o 

3 

O 

© 

o 

< 

X 

c  o 

o 

o 

o 

o 

o 

o  o 

c 

o  o 

o  c 

© 

o 

o  o 

o 

o 

3 

o  o 

o 

o  o 

o  o 

o  c 

c 

o  o 

o  a 

o 

o 

©  o 

o 

o 

>0 

Z 

O  3 

o 

o 

3 

o 

3 

o  o 

o 

3  O 

o 

o 

o 

o 

o 

3 

o 

3 

3 

• 

•  • 

• 

• 

• 

• 

• 

•  • 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

CO 

cv 

0 

0 

o 

o 

o 

o 

o 

0 

0 

o 

0 

0 

0 

0 

o 

© 

0 

0 

o 

o 

X 

o 

UJ 

♦ 

o 

N. 

N- 

*3 

N. 

K*  N- 

o 

O  h- 

O 

o 

o 

© 

© 

O 

o 

o 

> 

(ft !/ 

o  o 

o 

o 

o 

o 

c 

o  o 

o 

o  o 

O 

© 

o 

o 

© 

o 

o 

© 

o 

•  i 

• 

I 

1 

1 

1 

1  1 

♦ 

♦  1 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

>- 

o 

tD 

X  X 

i 

X 

X 

X 

X 

X  X 

X 

X  X 

X 

X 

X 

X 

X 

X 

X 

X 

h- 

o 

ro  O 

o 

*-« 

N- 

o 

c 

o  or. 

3 

o 

o 

o 

o 

© 

© 

c 

o 

l-H 

• 

^  n 

x 

o 

X 

•sr 

O  ao 

o 

o  co 

o  o 

o 

a 

o 

a 

o 

6 

IT 

ro 

m  o 

tv 

X 

(V  o 

o  n 

o 

c  o 

o  o 

o 

e 

o  o 

o 

© 

z 

X)  X 

o 

in 

H 

m  m 

O  N- 

o 

o  ro 

o  o 

o 

o 

c 

3 

o 

o 

uJ 

M 

•  • 

• 

• 

• 

• 

• 

•  « 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

H- 

X 

? 

9 

o 

CO 

CVJ 

o 

o 

o  n 

o 

3 

o 

o 

o 

3 

o 

o 

Z 

h— 

in  o 

n  n 

o 

n  n 

o  o 

o 

x>  o 

O  b- 

o 

X) 

fw 

o 

o 

X 

o  o 

o 

o 

o 

o 

o 

o  o 

o 

o  o 

3 

o 

o 

o 

o 

O 

o 

o 

:  - 

o 

•  • 

1 

1 

1 

1 

1 

1  1 

1 

i  + 

♦ 

% 

♦ 

• 

1 

• 

• 

+ 

X 

Kte 

(X  X 

X  X 

X 

X 

X 

X  X 

X 

X  X 

X 

X 

X 

dr 

X 

X 

X 

X 

o 

uJ 

«-4 

1-4 

N- 

CO 

o 

®  KO 

o 

© 

o 

ro  O 

o 

o 

M 

X 

^  X 

rn 

o 

9-4 

n 

ro  O 

o  o 

© 

cv  o  m 

n 

o 

•— 1  K 

<© 

o 

O  X 

•H 

<c 

CO  O 

o 

o 

o 

^  <© 

n 

o 

uJ 

CM  CM 

m 

o 

3D 

00 

>  ^ 

00  ro  O 

o 

n 

o 

o 

«-•  o 

© 

© 

•  • 

• 

• 

• 

• 

• 

•  • 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

«jJ 

X 

*-<  o 

H 

^  ^O 

1-4 

o 

o 

CO 

3 

N>» 

9-* 

ro  O 

X 

3 

UJ 

O 

/-% 

r— 

T> 

jJ 

3  3 

3 

3 

o 

3 

3 

a  3 

3 

3  3 

o 

3 

3 

3 

o 

o 

3 

a 

jJ 

z 

O  3 

o 

3 

3 

3 

o 

3  O 

O 

O  O 

o 

o 

o 

3 

© 

3 

3 

o 

< 

3 

HH 

C  3 

o 

o 

o 

o  o 

o  o 

o 

O  O 

o 

o 

o 

O 

o 

O 

O 

© 

© 

O  1/3 

O  X 

N» 

<3 

in 

ro 

(\l^O 

CO 

ro 

in 

O 

30  O 

o 

cO 

Z 

3 

•  • 

• 

• 

• 

• 

• 

•  • 

• 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

< 

© 

0 

0 

o 

o 

o 

o 

O 

0 

0 

o 

0 

0 

o 

o 

o 

o 

0 

0 

o 

w 

1  1 

1 

• 

• 

• 

• 

• 

• 

• 

TUTAL  9.1741P-05  9.0550^-06  0,0000**00  l.«4898+00 


75 


o 

< 

cr 


c 

c 

NO 


o 

o 

♦ 

IT. 

in 

n 

n 

in 

m 

in 

in 

in  no 

o 

o  o  o  c  o 

©  ©  o 

o 

X 

O 

o 

o 

o 

o 

o 

o 

o 

o  o 

©  o  o  ©  e  © 

oooo 

o 

o 

1 

i 

i 

i 

i 

i 

1 

• 

i  i 

♦ 

4  4  4  4  4 

♦  4  4 

4 

1 

• 

NO  X 

x 

x 

X 

<& 

X 

<1/ 

X 

X  X 

X 

X  X  O'  X  X 

X  X  X  X 

X 

«*  o 

NO 

o 

o 

<3 

CO 

« 

ft* 

o  a 

o 

©  c  ©  o  o 

GO© 

o 

NO 

U4 

CM 

<T 

in 

in 

o 

*■* 

m 

o  n- 

o  o  o  o  o  o 

OOOO 

NO 

> 

rn 

CM 

> 

CM 

<f  o 

o 

o  o  o  o  o 

o  o  o 

o 

N* 

O 

O' 

m 

a 

CO 

o 

o 

O 

«-•  in 

o  o  o  o  o  o 

©  o  © 

o 

o 

c  * 

• 

• 

• 

• 

• 

• 

ft 

• 

•  • 

• 

ft  •  ft 

ft: 

U»  H 

ac  q 

m 

NO 

in 

o 

NO 

m 

a 

—  in 

o 

0 

0 

0 

0 

0 

0 

0 

0 

o 

«■ 

3  oe 

*■ 

** 

<* 

*■ 

*r 

** 

*r 

«■  m 

© 

©  O  K-  O  O 

O  O  oo 

o 

m 

i/) 

O 

o 

o 

o 

o 

o 

o 

o 

o  o 

o 

©oooo 

©  o  © 

o 

o 

X  CM 

1 

• 

i 

1 

« 

1 

i 

• 

•  • 

♦ 

4  *  f  4  4 

+  +  1 

4 

1 

in  x 

X 

4 

X 

4. 

X 

X 

X 

X  X 

X 

A  X  X  X  X 

X  X  X 

X 

X 

o  o 

O' 

in 

O' 

<t 

NO 

^* 

IT  O 

o 

©  O  CM  ©  c 

©  O  Q 

a 

Cj 

cr  4 

** 

CO 

CM 

o 

o 

N* 

o 

O'  o 

o 

C  O  CD  ©  O 

o  o  CI 

o 

O' 

u.  x 

o 

CM 

«-i 

<1 

«■* 

m 

NO 

O  K- 

o 

o  ©  o  ©  © 

o  ©  ® 

o 

4* 

o 

TK 

CM 

CM 

NO 

CM 

m 

m 

X  o 

o 

oooo© 

O  ©  n 

© 

4/?  O' 

• 

• 

• 

• 

• 

• 

• 

• 

•  ft 

ft. 

ft  ft  ft 

ft 

ft 

2  O' 

o  • 

CM 

C\J 

CM 

rn 

CM 

CM 

CM 

o 

o 

0 

0 

S 

0 

0 

0 

0 

3 

o 

CM 

•-*  CM 

m 

rn 

m 

<r 

<3* 

«y 

•c  ^ 

o 

O  O  O  O  O 

o  o  © 

o 

m 

o 

O 

o 

O 

C 

O 

o 

o 

o  o 

o 

O  ©  O  o  o 

o  o  c 

o 

o 

O  U 

i 

1 

« 

1 

1 

1 

« 

» 

1  1 

4 

4  4  4  4  4 

4  4  4 

4 

• 

UJ  o 

«  x 

X 

x 

CL 

X 

CL 

X 

X 

X  X 

X 

x  x  X  x  x 

xxx 

X 

X 

-J  X 

ro 

CM 

rn 

*■ 

O' 

CM 

»n 

m  no 

o 

CCOC© 

o  ©  o 

c 

o 

u. 

(V. 

O 

N- 

c 

N. 

N- 

X 

m  c> 

c 

a  a  ©  ©  o 

©  ©  c 

© 

O' 

> 

m 

** 

O' 

rn 

Kw 

K*  »* 

o 

o  o  o  o  o 

o  o  o 

© 

rn 

cr  i/j 

UJ 

•-* 

• 

O 

# 

CM 

# 

N. 

m 

o 

o 

m 

s-  m 

o 

©  ©  ©  o  © 

o  o  o 

o 

o 

L  K  (/) 

^4 

O' 

>> 

x> 

N- 

hw 

NC  cm 

c 

©  o  c  c  c 

c  o  c 

ft 

o 

ft 

Xr 

O  <  2 

z  c- 

CL  ►*  ^ 
li)  D  h 


mmmmmmmmmm©c©o©©©<c©o 

COCOOOCOGO  C  CCC  GC  CCOC 

^  ^  III  II  ill  «•+  +  +  +  ++  +!+  + 

ODOcomxxxxxxxxxxxxxxxxxxxx 
xouj  oo^oco'rnir^oooooooooccNiOO 

30«j  O  CM  iT  «OOClTO  'CLPOOCOOO  ornoo 


u 

rr 

r*.  ^ 

c 

C  NX 

c 

c 

c  c 

c 

c  c 

N  c 

c 

7 

o 

;r 

cr 

ft 

ft 

ft  ft 

ft 

ft 

•  ft 

ft  ft 

ft 

ft  ft 

ft 

ft  ft 

* 

ft  ft 

ftj 

z 

3 

n 

n 

3  4 

3 

n 

^  ru 

rn  ft* 

© 

0 

0 

© 

n 

0 

© 

O 

© 

-J 

‘3 

1- 

u 

£ 

o  o 

CM 

CM  CM  CM  CM 

CM 

CM  CM 

CM  CM 

o 

O  NO  o 

o  o 

© 

o  o 

© 

o 

UJ  UJ 

o 

© 

©  o  o 

© 

o  o 

O  o 

o 

o  ©  © 

c  o 

©  ©  o 

o 

2 

3 

l— 

X 

ft 

1 

1  1 

1 

1 

1  1 

1  1 

+ 

4  1 

+ 

♦  + 

4 

4  4 

4 

X 

'J 

UJ 

UJ 

CM 

l 

X 

X  x 

X 

3  4- 

X  X 

X 

X  X 

X 

X  X 

9 

X  X 

X 

2 

3 

X 

CM 

> 

CM  O' 

ft*  CM 

ft*  x> 

o 

o  s-  © 

o  © 

©  o  o 

© 

X 

2 

O' 

m  h*  o 

ft* 

co  in  © 

ft*  CM 

o 

©mo 

©  © 

c 

o  o 

o 

jJ 

3 

O 

NO 

n  in 

<c 

K 

m  ft* 

NC  5J- 

o 

O  fw 

© 

o  © 

c 

©  o 

o 

/) 

o 

• 

2 

ft 

ft 

O  TO 

ft  ft 

© 

• 

s. 

ft 

ft  • 

ft*  CM 

ft  ft 

o 

ft 

O  NO 

ft  ft 

© 

ft 

©  © 

o  o  o 

3 

-J 

1 

W  CM 

r  o 

CM 

CM  CM  ft* 

^  ft* 

ft*  ft* 

o 

O'©  © 

o  o 

o  o  o 

e 

UJ 

♦ 

CM 

CM 

CM  CM  CM 

CM 

CM  CM 

CM  CM 

O 

o 

©  o 

e 

O  rw 

in 

1/) 

> 

X 

c 

o 

o  © 

o 

o 

o  o 

c  o 

© 

c  c 

© 

©  c 

c 

o  o  c 

Ul 

o 

1 

ft 

1  1 

1 

1 

•  1 

1  ft 

• 

4  1 

+ 

♦  u 

4 

-4  | 

1 

>- 

o 

9^ 

X 

1 

X  1 

X 

X 

X  X 

.4  X 

L 

1/  x 

X 

X  X 

X 

X  X 

X 

<1 

►— 

© 

o 

n 

*  fw 

© 

m  X 

*  ^ 

o 

C  Nt 

o 

o  c 

© 

c  ^ 

X 

ft 

ft-4 

o 

CM  00 

:> 

O 

^  rn 

m  m 

K 

©  in 

o 

©  o 

3 

O  ON 

5C 

o 

i/: 

m 

IT 

CO 

^  m  cm 

N©  ^ 

rv  ^ 

in 

C  CM 

o 

o  © 

c 

©  NO 

3 

2 

CM 

•-4 

NC  © 

rn 

© 

CM  IT 

^  rTN 

c  > 

o 

c  © 

c 

O 

m 

UJ 

II 

ft 

ft 

ft  ft 

ft 

ft 

B  ft 

ft  ft 

ft 

ft  » 

ft 

ft  ft 

ft 

1/5 

►- 

X 

> 

O' 

N-  30 

© 

NO 

©  in 

«  m 

m 

o  m 

© 

0 

0 

o 

O  m 

s- 

*— • 

»— 

.M 

CM 

IM  CM 

?sJ 

CM 

CM  CM 

ft*  ft* 

c 

o  sr 

o  a 

© 

o 

o 

£ 

c 

o 

c  o 

© 

o 

o  o 

O  c 

O 

©  3 

© 

©  c 

c 

o  © 

© 

o 

►— 

© 

1 

• 

1  1 

1 

1 

1  1 

1  1 

+ 

4  1 

1 

*4  -4 

-4 

-4  » 

♦ 

'X. 

T 

*— 1 

©  X 

X  X 

X 

X 

X  9 

X  X 

X 

X  « 

4 

X  X 

<» 

X  X 

X 

< 

CO 

uJ 

O' 

CM  O  O 

s- 

3J 

m  X) 

m  m 

O 

O  ft* 

n 

o  o 

© 

©  CM 

Ul 

#— * 

X 

m  n- 

<r 

x>  o 

ft*  O' 

o 

o  jy 

n 

o  o 

© 

3  rv 

o 

4/5 

-J 

CM  CM  O' 

N© 

in 

ft*  NO. 

O'  in 

© 

©  o 

m 

©  © 

© 

©  o 

© 

Ul 

r 

3 

UJ 

o 

o 

ft 

NO 

ft 

CM  CM  © 

•  ft  ft 

© 

ft 

^  rn 

ft  ft 

©  o 

ft  ft 

o  o  -* 

ft  ft  ft 

X3 

■ 

o  o 

ft  ft 

o 

ft 

O  O' 

© 

aJ 

r 

X 

m 

o  n 

w 

NU 

6 

9 

ft*  ft* 

o 

O  ft* 

CH 

0 

0 

o  o  m  o 

o 

UJ 

3 

— # 

/) 

ftj 

o 

o 

O  3 

3 

o 

3  O 

O  3 

3 

3  3 

o 

©  © 

o 

o  o 

© 

O 


-^^^330003000000000  oooo 
-1*^0000000000  ooooooc  doo 
©soin^rocviHO  o 

«  o  o 


ooooooooo 


o  o  o  o  ©  o 

I  I  I  I  I  V 


o  o 

•  I 


o  ^* 

•  I 


w 

c 

I 

X 


o 

I 

% 

o 

in 

o 


c 

I 

4 

© 

IT, 

in 

O' 


o 

I 

ai 

x; 

^4 

in 


o 

>~ 

o 


RAUIATIUn  RESEARCH  ASSOCIAIES  -"LIIER  KKUBl.tM  1600 


76 


o 

o 

4 

X 

o 

^  o 

UJ 

o 

<  * 
U.  II 
X  a 
o  <r 

1/3 

X  CM 

o  o 

a:  4 

U  X 

© 

vr  a 

z  > 

o  • 

•-»  CM 
H* 

O  II 
UJ  Q 
-J  X 


cr  i/> 

UJ 


u. 

K 

to 

o 

<t 

z 

z 

o 

«M  ir-t 

«-4 

•H 

<* 

o 

<r 

<r 

o  o 

e 

c©  <r 

in 

c 

Or 

*-s 

c 

c 

o 

c  c 

C 

c 

C 

c  c 

e 

c 

c 

c 

c  c 

o 

c 

c 

© 

© 

UJ 

o 

-1 

1 

1 

1 

1  1 

1 

1 

1 

1  1 

i 

♦ 

i 

1 

4  4 

4 

i 

1 

i 

4 

X 

X 

© 

<t 

X 

x  at 

OL  X 

at 

Os 

X 

X  X 

X 

X 

X 

X 

XXX 

X 

X 

X 

X 

X 

o 

UJ 

H*  O 

go  <r 

CM 

fO  N- 

o  in 

Os 

o 

in 

o  o  o 

CM 

CO 

<© 

© 

— t 

o 

3 

C 

>c  *-• 

co  in 

a 

CM  GO 

<c  -♦ 

o 

o  o 

© 

co  in 

<x> 

m 

z 

u 

u 

o  m 

m  co 

30 

o 

in 

oo  a 

in 

c 

pw 

o  o 

© 

o 

S© 

ro 

u 

IT 

< 

sc 

<  >c 

IT 

s£ 

IT 

< 

c 

9~* 

a 

c  c 

C 

K 

a 

© 

or 

X 

• 

• 

• 

•  • 

• 

• 

• 

•  • 

• 

• 

• 

• 

•  # 

• 

• 

• 

• 

• 

z 

3 

•-4 

•u 

ro 

o 

r) 

•u 

0 

0 

o 

n 

«-» 

<r 

►- 

u 

O 

3 

o 

o 

o 

o  o 

o 

© 

O 

o  o 

O 

o 

o 

O 

o  o 

o 

O 

©  © 

© 

UJ 

UJ 

o 

o 

o 

o  o 

o 

o  o 

o  o 

o 

o 

o 

O 

o  o 

©  © 

©  © 

© 

-1 

H- 

X 

4- 

♦ 

♦ 

♦  4 

♦ 

-4 

♦ 

♦  ♦ 

♦ 

4- 

4 

4 

4  4 

4 

4 

4 

4 

4 

UJ 

UJ 

> 

X 

X 

at 

<*  <% 

X 

at 

X  X 

X 

X 

X 

X 

XXX 

X 

X 

X 

X 

Z 

Ci 

X 

O 

c 

o 

o  o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o  o 

o 

© 

o 

O 

o 

< 

X 

o 

o  o 

o  o 

o 

o  o 

o  o 

o 

o 

o 

o 

o  c 

© 

o 

o 

o 

o 

3 

o 

o  o 

o  o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o  o 

o 

o 

o 

o 

o 

✓> 

T 

o 

3 

o 

o  o 

o 

3 

3 

o  o 

o 

o 

o 

o 

3  O 

o 

o 

o 

3 

3 

3 

• 

• 

• 

• 

•  • 

• 

• 

• 

•  • 

• 

• 

• 

• 

•  • 

• 

• 

• 

• 

• 

CM 

o 

0 

0 

0 

0 

o 

O 

o 

0 

0 

o 

o 

o 

o 

0 

0 

0 

0 

0 

o 

© 

X 

O 

UJ 

♦ 

>© 

N* 

K*  O 

N- 

rw 

Pw  o 

o 

o 

o 

o 

O  O 

© 

© 

© 

o 

'O 

r> 

X 

o 

C 

o 

o  c 

o 

o  c 

o  o 

o 

c 

o 

o 

o  o 

O 

c 

o 

© 

© 

o 

1 

1 

• 

1  1 

1 

i 

i 

S  4* 

♦ 

■4 

4 

4 

4  4 

4 

4 

4 

4 

1 

V* 

o 

13 

X 

t 

X 

X  X 

t 

t 

X 

X  X 

X 

X 

X 

X 

X  X 

X 

X 

X 

X 

X 

►— 

o 

o 

sO 

pw 

ro 

o 

>o 

o  a 

o 

o 

o 

o 

o  o 

©  o 

o 

© 

cv 

• 

in 

O  CM 

O  GC 

o 

cr 

o  o 

o 

o 

o 

o 

o  o 

© 

3 

© 

© 

CM 

m 

ro 

IT, 

© 

ac 

CM  >0 

ro 

o 

N. 

rw  o 

o 

o 

o 

o 

o  c 

© 

© 

© 

e 

P^ 

z 

rw 

m 

30 

vc  a 

CM 

IM 

O 

o 

o 

o 

o 

o  c 

o 

w 

o 

o 

UJ 

n 

• 

• 

• 

•  • 

• 

• 

• 

•  • 

• 

m 

• 

• 

•  • 

• 

• 

• 

• 

• 

H- 

•—* 

r 

CM 

Os 

ro 

6 

2 

2 

5 

«ph  o 

o 

o 

o 

o 

0 

0 

o 

© 

© 

o 

30 

«— i 

*— 

s> 

x  in 

X 

s\ 

vO 

>©  N- 

o 

o 

o 

o 

o  o 

© 

© 

o 

© 

in 

r 

o 

c 

O 

o  o 

O 

o 

o 

o  o 

o 

c 

o 

o 

o  o 

© 

© 

© 

© 

© 

>— 

cr 

1 

i 

1 

1  1 

1 

1 

• 

1  1 

HK 

4- 

4 

4 

4  4 

4 

4 

4 

4 

i 

X 

M 

p^ 

x 

at 

X  X 

a. 

Os  at 

X  X 

X 

X 

X 

X 

X  X 

X 

X 

X 

X 

X 

o 

h- 

CM  *-» 

O  CM 

CM 

-n  h- 

sn  h*- 

o 

o 

o 

o 

o  © 

© 

© 

3 

o 

X 

O 

CM 

>o 

in  <x> 

ro 

CM 

cm  cr 

o 

o 

o 

o 

o  o 

© 

o 

©  O 

Os 

-1 

GO 

O 

N. 

in 

O 

o 

vO 

o  o 

o 

o 

o 

o 

o  o 

o 

© 

©  © 

ro 

UJ 

O 

O  CM 

N. 

c* 

x>  m 

© 

o 

o 

o 

o  © 

o  © 

© 

© 

3 

3 

• 

• 

• 

•  • 

• 

• 

• 

•  • 

• 

• 

• 

• 

•  • 

• 

• 

• 

• 

• 

uJ 

X 

x> 

*-h 

«-■  <0* 

«u 

CM  30 

o 

o 

o 

o 

0 

0 

© 

o 

© 

© 

<C 

cr 

3 

UJ 

3 

f— 

O 

jj 

o 

o 

3 

O  3 

3 

3 

3 

3  3 

3 

o 

o 

o 

©  © 

3 

© 

3 

© 

jJ 

? 

o 

o 

O 

3  O 

O 

3 

O 

3  3 

o 

o 

o 

o 

o  © 

3 

3 

O 

© 

<1 

-.1 

t-H 

o 

o 

o 

©  o 

3 

o 

o 

O  O 

o 

o 

o 

o 

o  o 

© 

O 

O 

© 

© 

O 

to 

a 

<X)  N* 

o  in 

ro 

CM 

*4  O 

*4 

CM 

co 

m  o 

<X> 

o 

© 

H- 

/) 

z 

3 

• 

• 

• 

•  • 

• 

• 

• 

at  • 

• 

• 

• 

• 

•  • 

• 

• 

• 

• 

3 

< 

© 

o 

o 

o 

0 

0 

3 

3 

o 

0 

0 

o 

o 

o 

a 

0 

0 

O 

o 

© 

h» 

w 

• 

• 

< 

i 

J  1 

1 

1 

1 

1 

77 


u 

o 

r 


c 

uj 

o 

x 

coo 

o 

«- 

cr 

c  c  c 

o 

3 

■#■■♦■■#■ 

+ 

UO 

-cr 

<1/  «•  X 

<x 

a: 

x 

o 

o  «  o 

CD 

UJ 

o 

c  no 

rn 

> 

H- 

0^0 

m 

c  *  c 

X 

X 

> 

Ui 

•  *  i 

• 

H- 

>— • 

o.^o 

«r* 

-J 

•— * 

UJ 

rD 

</5 

o 

o  o  © 

o 

3 

©  ©  o 

o 

x 

uJ 

+  +  + 

+ 

x 

»— 

-*> 

X  ' .  X 

X 

o 

o  o  o 

Ch 

X 

o  tc  o 

CO 

jj 

0^0 

«T 

►— 

V- 

o  «  o 

* 

X 

*  •  • 

» 

-J 

o 

O  «-»  O 

«-4 

l. 

o  o  o 

o 

i/5 

o  o  o 

c 

UJ 

o 

+  +  ♦ 

♦ 

•— 

lO 

XXX 

X 

<r 

ft 

*r 

©  -*  c 

•H 

*— • 

aJ 

ocvo 

ru 

o 

h- 

o  c\  c 

rv. 

H- 

o  cvj  © 

CM 

*/5 

C 

•  •  • 

• 

<S) 

O 

O  C\J  o 

cm 

< 

y) 

0  0  3 

o 

T 

o  o  o 

o 

O 

♦  -r  + 

•*■ 

r 

*■« 

x  a  x 

X 

<k 

o 

G  O 

1/5 

i  jj 

©  ©  © 

o 

«/5 

©  '>  © 

a 

-j 

O  X)  o 

x> 

X 

•  •  • 

m 

OMO 

C\J 

dC 

3 

-s 

/ 

— 

3 

3 

•a 

*-* 

— •  CNj  rn 

< 

** 

o 

>- 

a 

-kJ 

< 

X 

►— 

a 


78 


80 


V.  PROGRAM  DESCRIPTION 

Each  of  the  LITE  codes  ate  divided  into  several  subroutines  which 
are  designated  as  procedures  m  the  ALGOL  language.  The  ALGOL  pro¬ 
grams  are  compiled  each  time  they  are  loaded  on  tha  computer  and  no 
object  decks  are  produced  The  ALGOL  language  requires  that  any  pro¬ 
cedure  called  by  another  procedure  must  be  loaded  before  the  calling 
procedure.  For  this  reason  the  procedures  used  in  the  LITE-1  and 
LITE-II  codes  are  listed  in  the  following  sections  in  reverse  order 
with  respect  to  the  order  they  are  actually  used  on  the  machine  The 
following  is  a  listing  of  the  procedures  used  in  the  LITE  codes  and 
a  one  sentence  description  of  each  procedure 


Procedures  Used  in  the  L1TE-I  and  LITE-11  Codes 


Procedure 


Purpose 


MAIN 

SRMAIN+ 

SRCHECK 

SRDBEAM 

SRSCTANG 

SRREFLCT 

SRINITIAL 

SRPATHL 

SRANGLE 

SRAVRAGE 


Reads  in  the  input  data 

Controls  the  flow  of  the  problem  on  the  machine 

Checks  input  data 

Calculates  direct  intensities 

Calculates  scattering  and  direction  after  collision 

Calculates  new  direction  after  a  reflection 

Initializes  parameters  used  in  accumulating  the 
scattered  intensities 

Generates  random  path  lengths  between  collisions 

Selects  source  angles  from  input  distribution 

Calculates  and  prints  average  scattered  intensities 
as  a  function  of  collision  number  and  receiver  posi¬ 
tion  over  each  deviation  group 
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Procedure 

Purpose 

SRANSWER 

Calculates  and  prints  the  average  scattered  intensities 
as  a  function  of  receiver  position,  receiver  angle, 
and  order  of  reflection  over  all  histories 

srdetect"1* 

Calculates  scattered  intensities  at  receiver  points 
from  each  collision  point 

SRDIFSCA* 

Calculates  the  probability  of  a  photon  scattering 
into  a  direction  so  as  to  be  headed  toward  the  re¬ 
ceiver  from  each  collision  point  and  reflection  surface 

SRDSTBD 

Calculates  the  distance  along  particles  direction  to 
boundary  of  region  containing  collision 

SRSEARCH 

Locates  region  containing  the  particles  position 
coordinates  for  each  collision 

SRRANDA 

Generates  random  numbers  used  in  the  sampling  pro¬ 
cesses 

*  This  procedure  is  used  only  m  LITE-I 

+  These  procedures  are  different  for  each  code.  All  other  procedures 
are  the  same  in  both  codes 


The  ALGOL  listing  of  LITE-I  is  given  in  Section  5.1  and  the  ALGOL 
listing  of  LITE-II  is  given  in  Section  5.2.  Card  numbers  1000  -  18000 
of  the  ALGOL  language  version  of  both  codes  contain  control  cards  for 
operation  of  the  codes  on  the  Burroughs  B-5000  computer.  Cards  19000  - 
116000  of  both  codes  contain  lists  of  the  subscripted  real  and  integral 
variables  that  are  common  to  all  of  the  procedures  included  in  the  LITE 
codes.  Cards  117000  through  129000  contain  function  subprograms 
furnished  by  the  B-5000  monitor  system 
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5.1  ALGOL  LISTING  FOR  THE  LITE-I  CODE 

BEGIN  FILE  OUT  MINT  1  <9* 191 1  INTEGER  XRAZO»VVUNU»FZOVC»LKNjA»OK  lOOC 

V0K*QRANI*LJL0U*I1CPCV!  INTEGER  ARRAY  ZIKLA.QNCCLIOI 121 J FORMAT  HHFRK("TIME  2000 

ON  "*I«*X96*I2*Xl*A3*"  1 965"  )*CHQtlB(  "TIME  OFF  "»I*»X30»"PRCC.  TIME  ■"»  3000 

110*"  SECS"*X20*"I/0  TIME  ■"»I10»"  SECS")IOEFINE  0LZAT«LJLOU*FZOVC  OIV'2  *000 

1600013CP0VMZ0VC  MOO  2 16000/360091  FILL  ZIKLAIONITH  0*31*39*90*120*151*  3000 

101 *212* 2*3*223*304 *33** 3661  FILL  0NCCL(*)NITH  O»"JAN"»"FE0"»"MAR"»"ARR"»  6000 

"MAY"»"JUN"»"JUL"»"AUQ"»"SEP"»"0CT"»"N0V"»"DEC"!F20VC*TIME(  hilknja+time  7000 

{2)10KVGK*TlMEt  3)1  VVUMU*T1MC(0]1GRAM!*100»«VVUMU,  t30!6m0KVVUMU*t  3616  J*V  8000 

VUMU>C*2l6)lXRAZ0»llMHlLE  QRANIfcZlKLAlXRAZQlDO  XRATO*XRAZQ*UORANI*GRANI  9000 

■ZIKLAIXRAZQ"1))BLZAT!NRITEIPRINT(PAGE)»HHFRK» 100*LJL0U*GCP0V»QRANI *QNCC  10000 

LCXRAZ0D1  11000 

BEGIN  12000 

FILE  CARO  (2*10)1  FILE  IN  OAT  (2*10)1  13000 

FILE  OUT  PUNCH  0(2*10)1  1*000 

FILE  XXXXXX  2(2*13)1  15000 

SM1TCH  FILE  FILE$M*XXXXXXJ  16000 

LABEL  FINIS!  17000 

BOOLEAN  ARRAY  SENSLCOM)*  SENSMCOlMI  10000 

REAL  ARRAY  19000 

ABC(0i20)»  20C00 

SVTFLUX(0l2S*  OllO)*  21000 

SVFLUXtOi 25 *0125*0110)*  72000 

SV01FC0S(0l50*0ll0  )*  73000 

SVPDCOS  (0150*0110  )*  74000 

SVPHANG  (0150*0110  )*  75000 

SVAFLUX  (0125*0110  )*  26000 

SVPOR  (0137*015  )*  27000 

SVRFANG  (0137*015  )«  20000 

SVSAFLUX(0l25«0l  10)*  29000 

SVS0FLUX(0I25*0I10  )*  30000 

SVFLUO  (0150.0110  )*  31000 

SVRFLC0S(0l50*0ll0  )*  32000 
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SVA  [OllO  ]> 

33000 

SVC ANG  [0«37  ]> 

34000 

SVEHP  1 0*  30  ]> 

35000 

SVfLUR  COHO  ]> 

36000 

SVC  IP A  1 01 25  ]> 

37000 

SVFTLUX  C0I10  ]> 

36000 

SVALRED0[0l5  ]> 

39000 

SVCOEE  t  01 30  ]> 

40000 

svovnuxtouo  ]• 

41000 

SVHO  COHO  ]> 

42000 

SVPAG  [0137  )> 

43000 

SVRAYLEECOI 10  )> 

44000 

SVSANG  COS  300  3 » 

45000 

SVSTrLUXCOJlO  ]> 

46000 

SVWE I GHT 1 0 1 5001 > 

47000 

SVORPLUXCOI 10  1# 

40000 

SVPFANG  [0150  )> 

49000 

SVNAG  [0»37  1# 

50000 

SVPRPLT  [0150  )> 

51000 

SVRO  [ 0 s 1 0  ]i 

52000 

SVRFLUX  [0110  )> 

53000 

SVSIGNOTCOHO  U 

54000 

SVSUMRHOC  0 1 30  1# 

55000 

SVCRATIO  [OHO]  > 

56000 

SVHV[Ol 100]» 

57000 

SVTAUC  0  H  00 1  > 

56000 

SVSCATRI0H001# 

59000 

SVRAYRCOIlOOJ# 

60000 

SVTAUHOtOHO]* 

61000 

SV08SS  [OHO  ]) 

62000 

INTEGER  ARRAY 

63000 

SVIB  [OH  >0150  ]> 

64000 
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SVMPR  t0»4  #0»50  )»  65000 

SVJREFlTt0l5  1#  66000 

SVNDFCOStOllO  1#  67000 

SVNREO  CO « 50  ]•  66000 

SVINCOl  [0125  U  69000 

SVMAT  tO» 30  1#  70000 

SVNB  [0130  1#  71000 

SVNRHANGCOtlO  )*  72000 

SVNRF  ANQt  0 1 3  J»  73000 

SVNRICO  C 0 • 50  J#  74000 

3VITYRE  CO • 30  J#  75000 

SVMATERltOllO  l,  76000 

SVNBOUNDt  0 • 30  )*  77000 

SVNPMID  tOllO  76000 

NRFRtOlSl#  79000 

SVNRFCOStOlS  II  60000 

REAL  61000 


JALPHA  » 

JBETA  » 

JBRAC 

9 

JCDEPHIo 

JCOTH  » 

62000 

JC0TH1  » 

JC0TH2  0 

JCPA 

9 

JCPHI 

JCPHI 1  , 

63000 

JCPHI2  » 

JCPHID  » 

JCPRRD 

9 

JCPT 

JCSA  $ 

64000 

JCSANQ  » 

JCTEP  » 

JOELTA 

9 

JDEOM 

JOIFH  0 

65C00 

JOIST  » 

JDL0N6  0 

JOOM 

9 

JOT 

JEAH  , 

66000 

JELIM  , 

JFI  » 

JFNPA 

9 

JFNRA 

JH  * 

67000 

JH1  » 

JH2  0 

JHS 

9 

JHT 

66000 

JPAG 

JPJM1  » 

69000 

JPL  # 

JPSCAT  0 

JR 

9 

JR1 

JR2  0 

90000 

JREFl  # 

JRESULT  0 

JRHO 

9 

JRHOT 

JRN  , 

91000 

JRRD2  # 

JRRDS8  0 

JRT 

9 

JSOEPHI 

JSITH  , 

92000 

JSITH1  » 

JSITH2  0 

JSMVAL 

9 

JSOO 

JSPHI  # 

93000 

JSPHI1  » 

JSPHI2  0 

JSPHID 

9 

JSPT 

JSSANQ  , 

94000 

JSTEP  0 

JSUMOST# 

JSUMSfi 

9 

JT 

JTEMP  , 

93000 

JTS  # 

JUPLMIT» 

JWAIT 

9 

JMCO 

9 

jmhoa  0 

96000 
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JRATLEE#  JTAUH,  JTAUhI 

,  JTAUH?, 

97000 

JX  0 

JXR  0 

JERRORS. 

JDM I N  ) 

98000 

INTEGER 

99000 

j  jhb»  jjht,  jnrefl 

0  JMAXR#  JNMAXRi 

JIBASl#  JIRAS?, 

100000 

JIRA53*  JIBAS4#  JIBAS5#  JNOH, 

1 0 1 000 

JIRASE  , 

102000 

J1CB  » 

j i Dump  # 

JJ1  * 

JKA1  0 

JKA2  * 

103000 

JKA3  0 

JKA# 

JL  A  , 

JLB  * 

JLI8RAY# 

104000 

JLOC  # 

JLP  » 

JLSR  , 

JLST  , 

JMATi  , 

105000 

JMAT2  # 

JMAXCOL 0 

JMPREG  0 

JN  AG  * 

JN AGP  0 

106000 

JNAOP  0 

JNAOPP  # 

JNBMAX  0 

JNBMAXP, 

JNCB  0 

107000 

JNCM  $ 

JNCMAX  * 

JNCOL  0 

JNCR  , 

JNCR1  0 

108000 

JNCR2  0 

jncyc  0 

JNOEVG  0 

jNDHAX  0 

JNDHAXP, 

109000 

JNPORM  0 

JNGROUP# 

JNHJST  0 

JNHMAX  0 

JNLS  0 

110000 

JNLM  0 

JNHAT  0 

JNMATP  0 

JNOGO  0 

JNPA  0 

111000 

JNPAP  0 

JNPART  0 

JNPHASE  0 

JNPCOL  , 

JNPCOLP# 

112000 

JNPROB  * 

JNRA  * 

JNRFLB  0 

jnrflbp. 

JNRING  0 

113000 

JNRMAX  0 

jnRmaxp* 

JNRSTOP  0 

JNSOREG, 

JNSY  0 

114000 

JNSP  0 

JNUB  0 

JNWAIT  0 

K,  JNRB  ) 

115000 

REAL  Q»XPR) 

116000 

mRMAT  F  ( ////// 

"STOP  /  PAUSE  NO.  ",  153 J 

117000 

RFAL  PROCEDURE 

INTCARG1))  VALUE 

ARGI) 

REAL  ARGI) 

118000 

INT*SIGN(ARG1 )xENTIER(ABS(ARG1))) 

1 19000 

REAL  PROCEDURE 

TANH(ARGl))  value 

ARGI) 

REAL  ARG  1 ) 

120000 

TANH*( (0*EXP( ARGl*2)  > 

-n/co*i)i 

121000 

REAL  PROCEOURE 

MAXC ARGI, 

ARG2 ) )  VALUE 

ARGI , ARG2) 

REAL  ARGl,ARG2) 

122000 

M AX* I F  ARG12ARG2  THEN 

argi  else  arg2) 

123000 

REAL  PROCEDURE 

MIN(ARG1 0i 

ARG2 ) )  VALUE 

ARGI , ARG2) 

REAL  ARG 1 , ARG2) 

124000 

MIN*IF  ARG1SARG2  THEN 

argi  else  arg2) 

125000 

REAL  PROCEOURE 

0 1 H  C ARG 1 ,  ARG2 ) )  VALUE 

ARGI , ARG2) 

REAL  ARGI , ARG2) 

126000 

01M»HAX(ARG1 

'ARG2, 0 ) ) 

127000 

PROCEDURE  ERROR(ARGi)! 

VALUE 

ARGI) 

REAL  ARGI) 

128000 
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err* i n  mritfcprint,f,argi)j  go  to  finis  enoi  i?9000 

PROCEDURE  SRRANDA( JI0ASE, JRN)i  130000 

INTEGER  JIBASEJ  1 31000 

PFAL  JRNJ  132000 

BEGIN  INTEGER  I#  0f  133000 

A.tl?»l«]  ♦  JIBASE. 130118))  134000 

8* 1 12 1 35 1  ♦  JIBASE  •  [ 1 3 1 33 ) I  135000 

JIBASE ,[ 1 2 1 36 )  ♦  A*B*JIBASEJ  136000 

A  ♦  *01  137000 

A.I21I27]  ♦  Jt  0 ASE • 1 1 ? 1 27  ] )  138000 

JPN  «•  A )  139000 

JRN  ♦  JRN/134217726.0)  140000 

END  5RRAN0A)  141000 

PROCEDURE  SRSEARCHJ  142000 

BEGIN  143000 

INTEGER  JI,JJ,JK)  144000 

FORMAT  Fl?3( /"  BOUNDARY", 13,"  MAS  SEEN  INCORRECTLY  I0ENTIFIE0."'*  145000 

FL  37( /"  POINT  LIES  ON  BOUNDARY", 1 3) ,  146000 

FL«5(/"  SEARCH  CYCLE  THROUGH  REGIONS  IS  NOT  HANOELED  PROPERLY,"),  147000 

Fl95(/"  CANNOT  FIND  REGION  FOR  POINT  NITH  COORDINATES  R  ■  ",E10.3,  146000 

",  H  *  ",E10*3)I  149000 

LIST  L I  ST  1 ( JNCB )  I  150000 

LIST  L!ST?( JH,JR)I  151000 

LABEL  L5,Ll0,L?0,L25,L30,L35,L36,L40,L30,L60,L60,L90,L97,L100,L36,L3n  152000 

L5»  JNSY*0)  153000 

JNL0OMPREG)  154000 

jnubonrmax*  155000 

L10I  JK*JNL0J  156000 

00  BEGIN  157000 

JJfrSVNBt  JK ) t  156000 

JI*1I  159000 

00  BEGIN  160000 
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JNCB+ABS(SV19CJI»JK])J 

161000 

IF  CXPR*(SVlTYPEt JNCB]-1))>0  THFN 

GO  TO 

L30I 

162000 

IF  XPR«0  THEN  60  TO  L25* 

163000 

L20I  HRITE(PRINT»FL23#LIST1>) 

164000 

JHHO A* JWHOA*  1 1 

165000 

GO  TO  L50J 

166000 

L25  l  JXR«-SVCOEE[  JNCB1-JHI 

167000 

GO  TO  L 35 1 

168000 

L 30 »  JxR^SVCOEEr JNCBI-JRI 

1 69000 

L 35 •  IF  (XPR*(  JXR)  )>0  THEN  (,u  Til  L«Ol 

170000 

IF  XPR<0  THEN  GO  TO  L 36 A 

171000 

HRITE(PRINT»Fl37,LIST1)I 

172000 

IF  JCOTH  >  0  THEN  GO  TO  L 36  1 

173000 

JH  ♦  JH  -  JDELTA  1 

174000 

GO  TO  L37  t 

175000 

L36I 

176000 

JH  ♦  JH  ♦  JOELTA  I 

177000 

L  37  • 

176000 

JR*JR*JDEI»TA*JSITH*JCPHI  1 

179000 

GO  TO  151 

160000 

L38I  IF  (XPR*(SVIBCJI*JK]))>0  THEN 

GO  TO 

L60J 

161000 

IF  XPR«0  THEN  GO  TO  L20  ELSE  GO  TO 

L50I 

182000 

L40I  IF  (XPR«-(SVIBt  JI»  JK]))«0  THEN 

GO  TO 

L20I 

163000 

IF  XPR<0  THEN  GO  TO  L60* 

1 84000 

L50I  END  UNTIL  ( Jl ♦( JI ♦ 1 ) ) > J JJ 

16,5000 

JNCR* JKJ 

186000 

GO  TO  LI 001 

167000 

L60I  END  UNTIL  ( JK*(  JKM )  )>JNUBJ 

166000 

IF  (XPR*( JNSY))>0  THEN  GO  TO  L90J 

169000 

IF  XPR<0  THEN  GO  TO  L60J 

190000 

JNSYM  J 

191000 

JNLB+l J 

1920C0 
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JNUB* JMPREG)  193000 

GO  TO  L10)  194000 

LOO  •  HRITE(PRINT>,FL65)I  195000 

JWHOA+ JWHOA+ 1 f  196000 

GO  TO  197)  197000 

1901  WRITE(PRINT,FL95»LIST?))  198000 

JWH0A*JWH0A*1)  199000 

L  9  7 •  JNCR+O)  200000 

L100I  ENO)  201000 

PROCEOURE  SROSTBO)  202000 

BEGIN  203000 

INTEGER  J J, JK)  204000 

COMMENT  THE  FOLLONING  SUBROUTINES  ARE  REOUIREOl  205000 

SRSEARCH)  206000 

FORMAT  Fl15(."  BOUNDARY", 13."  HAS  BEFN  IOENTIFIEO  INCORRECTLY, ,  207000 

FL55C/"  LOC  •  "» 1 4, "  ICB  «"»I4,"  X  ■",E10.3,"  BRAC  •"#E10.3»  206000 

"  OIST  »",E10.3/"  H  •", E 1 0, 3, "  R  «",E10.3,"  COEE(ICB)  *",E10,3,  209000 

"  ITYPE(ICB)  •",14),  210000 

FL75(/"  COLLISION  POINT  IS  WITHIN  A  DISTANCE  OF  1.1  OELTA  FROM  BOUNOAR",  211000 

"Y"»I4»",  IT  WAS  MOVED  OFF  THE  BOUNDARY,"))  212000 

LIST  LISTl(JICB))  213000 

LIST  LIST2(JL0C,JICB,JX,JBRAC,J0IST,JH,JR,SVC0EEIJICBl,SVITYPEr  214000 

JICBD)  215000 

LIST  LISTS(JNCB))  216000 

LABEL  L5,L20,L30,L36,L36»L39,L56,L60,L60)  217000 

JNCB*0)  216000 

JJ1*1)  219000 

JL0C»105)  220000 

L5I  JDIST*J0L0NG)  221000 

JK»$VNBt JNtRl)  222000 

JJ»1)  223000 

00  BEGIN 


224000 
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JlCB«-ABSf$VIB[JJ*JNCR])) 

225000 

IF  <XPR«-(SVITYPE[JIC8)-1))>0  THEN  GO  TO 

L  301 

226000 

IF  XPR»0  THEN  60  TO  L20J 

227000 

WRITE(PRINT,Fll5»LISTl)J 

228000 

JNH0A*JWH0A*1) 

229000 

GO  TO  LBOI 

230000 

120»  IF  ( ABS( JCOTHISJSMVAL)  THEN  GO  TO 

160  J 

231000 

JXKSVCOEEt  JICB]-JH)/JCOTH) 

232000 

GO  TO  L39J 

233000 

L 30 1  IF  (A8S(JSITH5SJSMVAI)  THEN  GO  TO 

160  J 

23A000 

jBRAOfSVCOEEt  JICB]*2-(  JRXJSPHIIO)  J 

235000 

IF  JBRACSO  THEN  GO  TO  L60J 

236000 

IF  CXPRKSVCOEEt JICBI-JR))>0  THEN  GO  TO 

1381 

237000 

IF  XPR<0  THEN  GO  TO  L36I 

238000 

JHPREG* JNCR) 

239000 

SRSEARCH) 

2 AOOOO 

IF  ( JERR0RS2 JWHO* )  THEN  GO  TO  1.3  FL$E  GO  TO  1801 

2A1000 

L 36 1  JX«-CJR*JCPHI-SORT(  JBRAC  ))/JGITH) 

2A2000 

60  TO  L39J 

2 A  3000 

L 38 *  JX*C-JRxjCPHI*SQRT( JBRAC ) ) / J5I TH J 

244000 

L39 *  IF  JIDUHP<0  THEN  GO  T0  L56J 

245000 

WRITE(PRINT>FL55>LIST2)) 

246000 

L56 1  IF  JXSO  THEN  GO  TO  L60) 

247000 

IF  (JDISTSJX)  THEN  GO  TO  L60) 

248000 

JDIST*JX*JDELTA) 

249000 

JNCB*JICBJ 

250000 

JJ1*JJ> 

251000 

L60»  END  UNTIL  ( J J* ( J J+ 1 ) ) > JK) 

252000 

IF  ( JDISTM.lxJDELTA)  THEN  GO  TO  L80) 

253000 

WRITE(PRINT*FL75*LIST3)I 

254000 

JHOH  +  JDELTAkJCOTHJ 

255000 

JR«-JR*JDELTA*JSITHXJCPHI) 

256000 
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JMPREG*SVMPR[ JJl, JNCRJ)  ?5?000 

5R5EARCH)  258000 

IT  JNCR>0  THEN  GO  TO  15)  259000 

180 «  END)  260000 

PROCEDURE  SROIFSCA)  261000 

BEGIN  262000 

INTEGER  JI,JJAIL)  263000 

COMMENT  THE  FOLLOW'NG  SUBROUTINES  ARE  REQUIRED «  264000 

SRRANDA)  265000 

FORMAT  F155(/  266000 

"  THE  COSINE  VALUES  FOR  WHICH  THE  Ml E  SCATTERING  PHASE  FUNCTION  ",  26700* 

"ARE  INPUT  ARE  INCORRECT  FOR  M ATFR I AL", I  3, " . " ) )  266000 

LIST  L T  ST  1  ( JNCM ) )  269000 

LABEL  LI 10,L150,L1E0,L5,L20,L52,L60,L60)  270000 

SWITCH  SWG01*1.110,L150,L110»L150)  271000 

IF  JREFL <0  THEN  GO  TO  L5)  272000 

JJAIL«-SVJREFLTI  JNRB])  273000 

GO  TO  SWGOlt JJAILU  274000 

L 1 1 0 1  JPSCATM/6, 28318)  275000 

GO  TO  L80)  276000 

L 1 50  I  JNCYC*SVNRFANG[ JNRB])  277000 

JIM)  276000 

00  BEGIN  279000 

IF  (JCSA>SVRFANGt JI,JNRB))  THEN  GO  TO  L170)  280000 

END  UNTIL  ( JIM JIM ))>JNCYC)  281000 

L 1  70  i  jPSCAT«-SVPORt JI-1, JNRB ]  +  (SVPOR[JI, JNRB ]-SVPOR[JI-l, JNRB] )*(JCSA-  282000 
SVRFANGt J!-l, JNRBl)/(SVRFANGt JI, JNRB]-SVRFANGt JI-1 , JNRB] ))  28  3000 

GO  TO  L60)  284000 

L5 l  SRRANDAC JIBASE# JRN))  265000 

IF  ( JRN> jRATLEE )  THEN  GO  TO  L20)  266000 

JPSCAT»(1*JCSAhJCSA)k, 059683)  267000 


GO  TO  L60) 


266000 
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L?0*  JNCYC*SVN0FC0S[JNCM])  2P9000 

JIM)  290000 

on  BEGIN  291000 

IF  CJCSA>SVOIFCOSr JI»JNCMI)  THEN  r.n  TO  LAO)  292000 

END  UNTIL  ( JIM JlM))>JNCYC)  293000 

L52l  WRITE(PR!NT,FL55»LISTl ) )  294000 

JMHOA  +  JWHOAMI  295000 

GO  TO  L80)  296000 

L60l  IF  CJl<n  THEN  60  TO  l^2)  297000 

JP5CAT*SVP0C0S[ JI-1» JNCM)*(SVPOCOSt JI» JNCMI-SVP0C05I JI-1»JNCM])*( JCSA-  298000 
SVDlFCOsr JI-W JNCM))/CSVDlFCOSt JI» JNCMI-SVOlFCOSt JI-1» JNCM]))  299000 

L80«  END)  300000 

PROCEDURE  SRDFTECT)  301000 

BEGIN  302000 

real  jcod#  jsioi  integer  jj»jk,jl»jm,  jlci  303000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIREOl  304000 

SRRANDAj.  SR0STB0»  SRSEARCH*  SROTFSCA)  305000 

FORMAT  FL22C/"  LOC  «"M4»"  ALPHA  »",E10,3*"  BETA  «"#E10.3»"  OIFH  306000 

E10.3/"  RR02  «"»El0.3»"  RRDSQ  *"#E10.3»"  SUMSQ  *"#E10.3»"  SOO  307000 

E10.3/"  NRING  »" » 1 4  # "  J  «"»T4,"  K  «"»T4,"  CRT  «",E10.3»"  SPT  ■"»  308000 

E10.3/"  DOM  »",El0.3»"  CPHTO  *",E10.3»"  SPHIO  «"#El0.3»"  CPRRO  ■"»  309000 

E10.3/"  T  «%E10.3»"  COTH  »"#El0.3»"  TEMP  «".E10.3»"  SITH  «"»E10.3/  310000 

"  C  PH  I  »"» El  0. 3» "  SPH I  ="»El0,3»"  H  «"»E10.3»"  R  «"*E10.3/  311000 

"  RHOT  «"#E10.3»"  SUMOST  «",E10.3#M  HT  s"*E10,3*"  OT  »",F10.3/  312000 

"  RN  «"»E10.3)»  313000 

FL27C/**  LOC  »"»I4»"  LSR  »"»I4»"  NOR  «",I4»"  MAT  1  «"#I4»"  MAT2  «"M4#  3140O0 

"  H  »",E10.3/"  TS  ="»E10.3»"  RT  «"#E10.3»"  CPHI  «",E10.3#"  R  ■  %  315000 

E10.3/"  HT  *"»E10.3»"  OT  «"#E10.3»"  RHOT  ■"»E10.3>#  316000 

FL257 ( /"  LOC  »"#I4»"  J  «",I4»"  LA  «"»I4#"  LP  «"#I4,"  CSA  «"#E10,3#  317000 

"  PSCAT  «"#E10.3/"  WAIT  *"#E10.3»"  RHOT  «"#E10,3»"  WRING  »%I4,  318000 

"  CPA  «"#E10«  3/**  RESULT  -"#F10.3»"  FLUX ( J , LP #L  A  )  »"#E10.3#  319000 

"  FLUDCJ#NCR1)  «"»E10.3/"  NCR1  «"»I4,"  RFLUXCJ)  »"*E10.3#  320000 
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"  RFFL  «",E10.3)J  321000 

LIST  LIST1 1 JL0C» J ALPHA* JBETA, JDIFH, JRRD2, JRRDSQ, JSUMSQ • JSOO, JNRING, JJ,  322000 
JK, JCPT, JSPT, JDOM* JCPHID, JSPhID, JCPRRD, JT» JCOTH, JTEMP, J$ITH,JCPHI»  323000 

JSPHI# JH» JR, JRHOT* JSUMQST, JHT, JOT# JRN)  J  324000 

LIST  LIST2<  JI.OC,  JLSR,  JNCR,  JM*T1 ,  JM*T2»  JH>  JTS,  JRT,  JCPHI,  JR,  JHT,  JOT,  JRHflT)  325000 
J  326000 

LIST  LIST3( JLOC, JJ, JLA, JLP, JCSA, JPSC4T, JW4IT, JRHOT, JNRING, JCPA,  JRESULT,  327000 
SVFLUXt  JLA,  JLP,  JJJ,SVFLUOt  JNCRl,  JJ],  JNCRl,SVRFLUXf  JJI,  JREFDJ  328000 

BEGIN  329000 

LABEL  L10,  L?5»  L100,  L210,  L230,  330000 

L250,L255,L260,L280,L300I  ? 31000 

JALPHA4-JSITH2xJCPHl2l  332000 

JPETA*JSITH2*JSPHI2l  333000 

JJ«-1J  334000 

DO  BEGIN  335000 

JDIFH4-SVHDt  JJJ-JH2J  336000 

JRRD2«-JR2*SVRDt  JJI*2I  337000 

JRRDSO«-SVRDt  JJI*SVRDt  JJ]*JR2*JR?I  338000 

JSUMS0«-JRRDSQ*JDIFH*2J  339000 

JSOD«-SORT(SVRDt  JJl*2*(SVH0t  JJ1-JHS)*2)I  340000 

JCOO«-(SVHOt  JJ]-JHS)/JSOOI  341000 

JSI0«-SVR0t  JJI/JSODJ  342000 

jNRING  +  SVNPHIDtJJU  343000 

JKMJ  344000 

DO  BEGIN  345000 

L 1 0 1  SRRAN0A( JIBAS1, JRN)I  346000 

JCPT«-2*JRN-1J  347000 

SRRANDA( JIBAS2, JRN)i  346000 

JSPT«-2*JRN-1  J  349000 

JD0M«-JCPT*2*JSPT*2I  350000 

IF  (JD0M>1)  THEN  GO  TO  L 1 0 1  351000 

JDOM«-SQRT(  JOOHJl  352000 


JCPHIO*JCPT/JDOMJ  353000 

JSPHID*JSPT/JDOMJ  354000 

JCPRR0*JCPHID*JRRD2)  355000 

JT«-S0RTC  JSUMSO-JCPRRD))  356000 

IF  ( JT < JDM I N )  THEN  GO  TO  L260)  357000 

JC0TH*JDIFH/JT)  358000 

JTEMP«.sORT(  JRROSO-JCPRRD))  359000 

JSITH«-JTEMP/JT)  360000 

JLOC*90)  361000 

IF  JIDUMP<0  THEN  GO  TO  L?5I  362000 

WRITE(PRINT»F122»LIST1)>  363000 

L25 *  I F C A RS ( JCOTH)>JSHVAL)  THFN  GO  TO  LlOO)  364000 

JRHOT«-JTx(SVTAUt  JjHTI-SVTAUr  JJHB])/C5VHV[  JJHT]-SVHV[  JJHBDI  3  65000 

GO  TO  L210I  366000 

L 1  00  *  JRHOT  *■  CSVTAUHDt  JJ  1- JTAUH2 ) / JCOTH)  367000 

L210I  jCSA4-CjALPHAx(SVR0r JJ]xJCPHID-jR?)+JBETAx(SVROt JJ)xjsPHIO)+  368000 

JC0TH2XJPIFH)/JTJ  369000 

SRDIFSCA)  370000 

IF  ( JERRORS<JWHOA)  THEN  GO  TO  1300J  371000 

JRESULT»( JWA IT* JPSCATXEXPC JRHOT ) )/(CJNRING)xJT*2))  372000 

JCP A*  ( JSIDx(SVRDt JJI  -JR2xjCPH!0)/JT)+( JC0TH*JC00)J  373000 

JLMI  374000 

DO  BEGIN  375000 

IF  (SVCIPAC JLJSJCPA)  THEN  GO  TO  L230J  376000 

END  UNTIL  (  JL*(  JL*m>JNPAJ  377000 

L 2 30  l  JLA«-JL)  378000 

JLP  f  JNREFL>  379000 

SVFl  UXf  JIA»  JIP*  JJUSVFlUXt  JLA»  JLP»  JJI+JRESULT;  3  80000 

SVFLUOr  JNCR2»  JJUSVFLUOI  JNCP2»  JJ3+JRESULT)  361000 

IF  JREFLSO  THEN  GO  TO  1,255)  362000 

SVRFLUXt  JJUSVRFLUXt  JJ)*JRESULT)  38  3000 


L255I  JL0CM10) 


384000 
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JM*1)  365000 

00  BEGIN  366000 

IF  (5VINC0LI JMlfcJNCOL)  THEN  GO  TO  12501  367000 

ENO  UNTIL  CJH«.(JMM))>JNPCOll  366000 

L250t  JLC* JM)  369000 

S^kr  t,UX[  JLC#  JJ)  ♦  SVAFLUXt  JLC # J J )♦ JRESULT)  390000 

IF  JIDUMPSO  THEN  GO  TO  L260)  391000 

NRITE(PRINT»FL257#LI5T3)I  392000 

L260I  ENO  UNTIL  C JK*C JKM )  )>JNRING)  393000 

ENO  UNTIL  ( JJ*( JJM))>JNDMAXJ  394000 

GO  TO  L300I  395000 

L260I  JHHOA+ JHHOA+ 1 )  396000 

L300I  ENO  END)  397000 

PROCEOURE  SRANSNERI  396000 

BEGIN  399000 

REAL  ARRAY  SVI IREF 1 0 1 25 ] I  400000 

REAL  JFGROUP* JFNHMAXI  INTEGER  J! # JJ# JK, JN# JM  )  401000 

INTEGER  0X1)  402000 

FORMAT  FLllOt"  RAOIATION  RESEARCH  ASSOCIATES  PLITEP  PROBLEM"#  1 1 0 ) #  403000 

FL120(/"  HISTORY  TERMINATION  COUNTERS.")#  404000 

FL 1 30(  /"  "# 1 9,  405000 

"  HISTORIES  HERE  TERMINATED  WHEN  THE  COLLISION  NUMBER  EXCEEDED"# 1 6#  406000 

"."/I10#  407000 

"  HISTORIES  HERE  TERMINATED  BY  THE  REGION  IMPORTANCE  PARAMETERS."/  408000 

110#"  HISTORIES  HERE  TERMINATED  BY  MINIMUM  HEIGHT  CUTOFF."  /IlO#  409000 

"  HISTORIES  HERE  TERMINATED  AFTER  MAXIMUM  NUMBER  OF  REFLECTIONS.  ")#  410000 

FL135  (/"  "# 1 9#  411000 

"  COLLISIONS  OCCURREO.")#  412000 

FL150(/  413000 

"  PARTICLES  TERMINATED  IN  EACH  REGION  BY  REGION  IMPORTANCE  PARAM"#  414000 

"ETERS.")#  415000 

FL160(/  416000 
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"  REGION  HISTORIES  REGION  HISTORIES  REGION  HISTORIES  REGIO"#  417000 

"N  HISTORIES"/  416000 

"  TERMINATED  TERMINATED  TERMINATED  "#  41 9000 

"  TERMINATED" i*  4?0000 

EL1T0C"  "#I*f I9#Il0#I9#I10#I9#I10#I9>#  421000 

EL  1 90( /  422000 

"  SCATTERED  lIGHT  INTENSITY  VERSUS  ANGLE  AND  NUMBER  OF  "#  423000 

"REELECTIONS  FROM  SURFACE  1")#  424000 

EL200("  SOURCE  HEIGHT  H*",E10,3#".  OETECTOR  COORDINATES  H0»"#  425000 

E 1 0 «  3#  "  RD«#"»E10# 1 #01 )#  426000 

FL210("  ANGLE"#X?7, "NUMBER  OF  REFLECTIONS")#  427000 

EL250C"  (C0SINE)"#I6#6(X9»I2))»  426000 

F L. 2 6 2 < "  (COSINE)  TOTAL")*  429000 

EL264( "  "#X23#"T0T*L") #  430000 

FL266("  "#X34#"T0TAL")»  431000 

EL268("  "#X45#"T0TAL")»  432000 

EL270("  "#X56#"T0TAl")»  433000 

EL272("  "# X67 # "TOTAL" ) *  434000 

EL274("  "#X78#"T0TAL")»  435000 


EL280("  " 

#R7*4»  XI 

#7ES1«4)# 

436000 

FL  300( /" 

TOTAL 

"»7E1 1 #4), 

437000 

EL450(/ 

436000 

n 

SCATTERED 

light 

INTENSITY  VERSUS  REGION  OF  "# 

439004 

"SCATTER")# 

440000 

El.460(  /" 

REGION 

"#X30#"DETECT0R 

!")» 

641000 

rL485(/" 

01")» 

442000 

ELA95(/" 

01 

02")# 

443000 

FL505(/" 

01 

02 

03")# 

444000 

FL51 5( /" 

01 

02 

03  04")# 

445000 

EL525(/" 

01 

0? 

03  04  05" ) » 

446000 

EL535(/ 

447000 

01 


02 


03 


04 


03 


446000 


96 


ft 

06"  ) » 

449000 

FL545</ 

450000 

ft 

01 

02 

03  04 

05  "» 

451000 

ft 

06  Of"), 

452000 

FL560<" 

*#  12#  X3#7E1 1 #4) » 

453000 

FL580(/" 

TOTAL  "»  7E 1 1 • 4  )  # 

454000 

FL605(/" 

08" )  # 

455000 

FL615(/" 

08 

09")# 

456000 

FL625(/" 

08 

09 

10"  J# 

457000 

FL680("  1 

LIGHT  SCATTERED  FROM 

reflection 

surfaces  to  each 

OETECTOR.")# 

458000 

FL690(/» 

DETECTOR"# 13#"#  REFLECTEO  FLUX 

■"»E10.3)J 

459000 

LIST  LISTK JNPROB) J 

460000 

LIST 

1. 1 ST  14  (JN0G0)| 

461000 

LIST  LIST2(  JMAXCOi.#  JNCMAX#  JNRSTOP#  JNNAIT#  JNMAXR*  J 

LIST  LIST3(fOR  OX1M  STEP  1  UNTIL  JNRMAX  OH  t 0X1 # SVNRI COt CXI 1J > i 

LIST  LIST4(JHS#SVH0t JJ)#SVRO( JJJJI 

LIST  LI  ST!  (FOR  DX1*JKA1  STEP  I  UNTIL  JKA2  00  SVlIREFtOXl  1)J 
LIST  LIST6($VCIPACJN)#F0R  0X1*JKA1  STEP  1  UNTIL  JK  A2  00  SVFLUXt 
JN#0X1#JJ))I 

LIST  L!ST7(F0R  0X1*JKA1  STEP  1  UNTIL  JKA2  00  SVTFLUX ( 0X1  #  J J ] )  \ 
LIST  LIST9(SVNREGt JI1#F0R  OX  1  «•  1  STEP  1  UNTIL  JNFORM  00  SVFLUOtjI# 
0X11)1 

LIST  LIST10(F0R  0X1*1  CfEP  1  UNTIL  JNFORM  00  SVFLURfDXl  1) J 
LIST  LISTIKSVNREGt JI1#F0R  DX1*8  STEP  1  UNTIL  JNFORM  00  SVFLUOt 
JI#DX1))I 

LIST  LIST12(F0R  0X1*8  STEP  1  UNTIL  JNFORM  00  SVFLURtOX 1 1 ) J 
LIST  LIST13(JI»SVRFLUXt JID) 

BEGIN 

LABEL  L18C#L185#L24Q#L261#L?63#L265#L267#L269#L271#L273»L275#L430*# 
L4»:0#L480#L490;>  1,500#  L5 10#  1.520#  L530,L540#L550#L600#L6  1 0#L620#L650# 
L670J 

SNITCH  SW601*L261#L263#L?65#l267#L269,L271,L273#L275I 


A62000 

463000 

464000 

465000 

466000 

467000 

468000 

469000 

470000 

471000 

472000 

473000 

474000 

475000 

476000 

477000 

478000 

479000 

480000 
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SNITCH  SWG024LAB0#L«90#L500#L5l0#L5:>0#L530#L5A0#L600#L610#L620J  061000 

JTNHMAX* JNHMAXJ  082000 

JFGROUP^JNGROUPI  063000 

JJ^ll  080000 

DO  BEGIN  085000 

JLST*JM0XR*1 I  O86000 

J I  ►  1 1  087000 

DO  BEGIN  488000 

JK4.1I  489000 

DO  BEGIN  090000 

SVFLUXt  JK#  Jl,  JJ]4.  SVFLUXr  JK#  JI#  JJI/JFNHMAX1  O91000 

SVFLUXt  JK#  JLST#  JJ]4  SVFLUXt  J*#JLST#  JJ]4.  SVFLUXt  JK  #JI  #  JJ  J 1  492000 

SVTFLUXt  JI#JJj4.SVTFLUXtJI#JJUSVFLUXt  JK#JI#JJ1)  49  3000 

END  UNTIL  ( JK#.{ JK41))>JNP»I  490000 

SVTFLUXt  JLST#  JjHSVTFLUXt  JLST#  JjUSVTFLUXt  JI#  JJ1)  4  95000 

SVIIREFtJlUJI-l)  496000 

END  UNTIL  <JI«-<JIM))>JMAXRJ  497000 

JM4.1I  098000 

DO  BEGIN  099000 

SVFLUOt  JM,  JJUSVFLUDt  JM#  JJl/JFNHMAXI  500000 

SVFLURt  JJUSVFLURl  JJHSVFLUOt  JM,  JJ])  501000 

END  UNTIL  (JM4.( JM41  ))>JNRMAX1  502000 

SVRFLUXt  JJ]4-SVRFLUXt  JJI/jr^HMOXI  50  3000 

END  UNTIL  ( JJ4-(  JJ  +  l  ))>JND«AXl  500000 

COMMENT  SUBROUTINE  RESULT!  505000 

WRITE (PRINTtPAGEI)!  506000 

NRITE(PRINT#FL110#LIST1)I  507000 

MRITE(PRINT#FL120)»  508000 

WRITE(PRINT#FL130#LIST2)J  509000 

WRITE  <PRINT#FL135»LIST1«H  510000 

IF  JNRSTOPSO  THEN  GO  TO  L160I  51*000 

WRITE(PRINT#FL150)1  5 1  2000 
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WRITECPRINT»Fl160>> 

513000 

WRITE(PRINT»Ftl70»lIST3)J 

514000 

LIBOl  JJMI 

515000 

00  BEGIN 

516000 

JKA2«-0  i 

517000 

JKA3+0J 

518000 

L185I  WRITE(PRINT[P»GEJ)» 

519000 

WRITE(PRINT#FL110»LIST1)/ 

520000 

MRITECPRINT,FL190)I 

521000 

WRITECPRTNT#FL200,IIST4)J 

522000 

WRITE(PRINT,FL210)J 

523000 

JKA1 ♦ JKA2+1 > 

524000 

JKA2*JKA1*6I 

525000 

IF  (JKA2SJMAXR)  THEN  GO  TO  12401 

526000 

JKA3MI 

527000 

JKA2+JMAXRJ 

526000 

IF  ( JK A 1 > JM AXR )  THEN  GO  TO  12611 

529000 

12401  WRITECPRINT#FL250#LIST5)I 

530000 

IF  JKA3S0  THEN  GO  TO  L275I 

531000 

JKA2* JKA2+ 1 1 

532000 

JKA4*JKA2“JKA1  +  U 

533000 

GO  TO  SMGOl t JKA4 1 1 

534000 

L261I  NRITE(PRINT*FL262)I 

535000 

GO  TO  1275J 

536000 

L263I  WRITECPRINT,FL264)I 

537000 

GO  TO  L 2 7 b 1 

538000 

L265I  WRITECPRINT#FL266)I 

839000 

GO  TO  L275  J 

540000 

L26TI  NRITE(PRINT,FL268)I 

541000 

GO  TO  L275J 

542000 

12691  NRITECPRINT»FL270)I 

543000 

GO  TO  12751 

544000 
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L 2 7 1  *  WRITE(PRINT,FL272)J 

545000 

GO 

TO  L275J 

546000 

L 2 7 3 *  WRITE(PRINT,FL274)J 

547000 

1275 1  JN4-1J 

5 '!  8  0  0  0 

DO 

BEGIN 

549000 

WRITE(PRINT»FL20O»LIST<S)  1 

550000 

END  UNTIL  ( JN*( JNM))>JNPAl 

551000 

WRITE (PR  TNT, FL300,LIST7)I 

552000 

IF 

JKA3<0  THEN  GO  TO  1105* 

553000 

END 

UNTIL  (  JJ«-(  JJ*1)  )>JNOMAXJ 

554000 

IF  (JNDMAXW)  THEN  GO  TO  L430J 

555000 

JNFORM*  JNDMAXJ 

556000 

GD  TO 

L440I 

557000 

LA30I 

JNF0RM«-7I 

558000 

L440» 

WRITE(PRINT[PAGE  1)1 

559000 

WRITE(PRINT,FLll0,LI5Tni 

560000 

WRITE(PRINT,FLA50)I 

561000 

WRITE(PRINT,FLA60)I 

562000 

GO  TO 

SWG02I JNFORMlJ 

563000 

LA0OI 

WRITECPRINT»FL485)J 

564000 

GO  TO 

L550I 

565000 

L490I 

WRITF(PRINT,EL495)J 

566000 

GO  TO 

L550I 

567000 

L50CI 

WRITE(PRINT,FL505)J 

568000 

GO  TO 

1 5  5  0  J 

569000 

15101 

.>;RITE(PRINT,FL515)I 

570000 

GO  TO 

L550I 

571000 

L520I 

WRITF(PRINT,FL525)I 

572000 

GO  TO 

L550I 

573000 

L530I 

WRITE(PR1NT,FL535)J 

574000 

GO  TO 

L550I 

575000 

L  5  4  0 1 

WR1TF(PRINT,FL545)I 

576000 
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L550I  JIM)  577000 

00  BEGIN  576000 

WRITECPRINT,FL560,II$T9>>  579000 

END  UNTIL  ( JI ♦ < JIM ))>JNRMAX)  580000 

WRITECPRINT»FL5B0»LIST10>)  561000 

IF  ( JN0HAX< JNFORM )  THEN  GO  TO  L670)  582000 

JNFORM* JNDMAX )  583000 

GO  TO  L440)  564000 

L  800 •  WRITE(PRINT»FL605)J  585000 

GO  TO  1650)  586000 

L610I  NRITE(PRINT»FL615>)  587000 

GO  TO  L650)  588000 

L620I  WRITE(PRINT#FL625))  589000 

L650I  JIM)  590000 

00  BEGIN  591000 

WRITE(PRINT»FL5  60#LIST11  ))  592000 

ENO  UNTIL  (  JIM  JIM  )  )>  JNRMAX)  593000 

WRITEC PRINT# FL5B0»LIST12))  594000 

L670I  WRITE(PRINTtPAGE)))  595000 

WRITECPRINT»FL680>)  596000 

JTM)  597000 

00  BEGIN  598000 

WRITE(PRINT,FL690,LIST13>)  599000 

ENO  UNTIL  (  JIM  JIM  ))>JN0MAX)  600000 

END  ENO)  601000 

PROCEDURE  SR A VR AGE  I  602000 

BEGIN  603000 

INTEGER  DXl,JI#JJ»JK  #JINOX  )  604000 

REAL  JFPART» JFGROUP)  605000 

FORMAT  FL 1 1 0  (  "  "> X29# "FLUXES  FOR  DEVIATION  GROUP"#  I  3# ")  #  606000 

FL120C/"  COLLISIONS", X30#"DETECT0R"}»  607000 

FL 1 45C /"  01")#  608000 
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FL 1 55 ( /" 

01 

02" )  # 

609000 

FL165(/" 

01 

02 

03")# 

610000 

FLl75(/» 

01 

09 

03 

04")# 

611000 

FL 1 85 ( /" 

01 

0? 

03 

04  05" ) » 

612000 

F  L  1 9  5  C  / 

61 3000 

ff 

01 

0? 

03  04 

05  "» 

614000 

** 

06")» 

615000 

FL205(/ 

616000 

** 

01 

0? 

03  04 

05  "» 

617000 

06  07" ) » 

618000 

FL220(" 

"#I2»X3»7E11.4)» 

619000 

FL230C /" 

TOTAL  "# 7E 1 1  •  4 ) » 

620000 

FL265C/" 

08") 

p 

621000 

FL275C/" 

08 

09")  » 

622000 

FL285( /" 

06 

09 

10«), 

623000 

FL 320( /"  BASE  FOR  RANDOM  NUMBER  GENFRATOR  IS"#I13)# 

624000 

FUOO  (/" 

"»X11# 

625000 

"  SCATTEKED  INTENSITIES 

VERSUS 

OFTECTOR  ANO  COLLISION 

NUMBER#")# 

626000 

FL450  C" 

"»X11» 

627000 

"  INTENSITY  DEVIATIONS 

VERSUS 

DFTECTOR  AND  COLLISION 

NUMBER.")) 

628000 

LIST  LISTK JNDEVG)) 

629000 

LIST  LI ST2( SVINCOLC Jl ) »  FOR 

0X1*1 

STFP  1 

UNTIL  JNFORM  DO 

SVAFLUXt 

630000 

JI#DX1  ]'.J 

631000 

LI'  •  LI  ST  3( FOR  D  X 1 ♦ 1  STEP  1 

until 

JNFORM 

DO  SVSTFLUXC 0X13)1 

632000 

LIST  LIST4(SVINC0Lt JI3#F0R 

0X1*8 

STFP  1 

until  jndmax  DO 

SVAFLUXC 

6  3  300o 

Jl #  DX1 ) ) ) 

634000 

LIST  LIST5CF0R  DXl+B  STEP  1 

until 

JNDMAX 

DO  SVSTFLUXC 0X13)1 

635000 

LIST  lIST6( JIBASE)) 

LABEL  L125»L130#Ll40#L150»L160#Ll7O,Ll60#Ll90#L200#L210#L260»L270. 

L2B0#L290,L310#  LU5*  L410#  L450) 

SWITCH  SWG01*L1 40#L150#L160#L170»L180#L190#L200J 
SWITCH  SWG02*L260#L270»L2B0) 


636000 

637000 

638000 

639000 

640000 
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JN0EVG*JNDEVG*1  I  641000 

JINDX  ♦  0  t  6420C0 

JFPART* JNPARTJ  643000 

JFGROUP  ♦  JNGROUP  I  644000 

JJMJ  645000 

DO  BEGIN  646000 

SVSTFLUXt JJ3*0J  647000 

JIMJ  646000 

DO  BEGIN  649000 

SVAFLUXC JI, JJ]*SVAFLUXt JI» JJ3/UFPARTJ  650000 

SVSAFLUXI JI,  JJ]«.SVSAFLUXt  JI,  JJj  +  SVAFLUXt  JI»  JJ]  I  651000 

SVSOFLUXt JI, JJ]*SVS0FLUXt JI» JJ3+SVAFLUXI JI» JJ3*2J  652000 

SVSTFLUXt  JJ]«-SVSTFLUX[  JJ]*SVAFLUXr  JI»  JJU  653000 

END  UNTIL  C JI*<JIM))>JNPCOLJ  654000 

SVFFLUXtJJ3*SVFFLUXC J J 3 ♦SVSTFLUX [ J J 3 1  655000 

SVDVFLUX[JJ3*SVDVFLUX[ JJ)*SVSTFLUX[ JJ3*2I  656000 

END  UNTIL  (JJ4.(JJM))>JNDMAXJ  657000 

MRITE(PRINTCPAGE3>1  656000 

NPITE(PRINT»FL110»LIST1)1  659000 

L115I  WRITE(PRINT»FL120)1  660000 

IF  (JNDMAX>7)  THEN  GO  TO  L125J  661000 

JNFQRMONDMAX)  662000 

GO  TO  L 1 30 1  663000 

L 1 25 l  JNF0RM*7 I  664000 

L 1 30 l  GO  TO  SNG01 t JNF0RH31  665000 

L140»  NRITE(PRINT»FL145)1  666000 

GO  TO  L210J  667000 

L 1  50 1  NRITE(PRINT»FL155)1  668000 

GO  TO  L210)  669000 

L 1 60 i  WRITE(PRINT»FL165)J  670000 

GO  TO  L210J  671000 

L170I  NRITE(PRINT»FL175)1  672000 
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60  T0  L210I 

673000 

L180J  WRITE(PRINT»FL165)J 

674000 

GO  TO  L210J 

675000 

L 1 90 l  WRITE(PRINT»FL1V5)J 

676000 

GO  TO  L ? 1 0 » 

677000 

12001  WRITE(PRINT,FL205)J 

670000 

L2 1 0 l  J I ♦ 1 » 

679000 

00  BEGIN 

680000 

WRITE(PRINT*FL220*LIST2)I 

681000 

ENO  UNTIL  ( J I ♦  ( JIM  ))>JNPCOD 

682000 

WRITE(PPINT»FL230#LIST3)J 

683000 

If  ( JNDMAXSJNFORM)  THEN  GO  TO  L310I 

684000 

jnformondmax-jnformj 

685000 

WRITE(PRINTtPAGE]>* 

686000 

WRITE(PRINT#FL110#LIST1  )l 

687000 

NRITE(PRINT*FL120)^ 

680000 

GO  TO  SWG02I JNFORMU 

689000 

L?60l  NRITE(PRINT#FL265)I 

690000 

GO  TO  L290 1 

691000 

L270I  WRITF(PRINT»FL2T5>) 

692000 

GO  TO  L290I 

693000 

L2«0l  WRITE(PRINT,FL285>) 

694000 

L290I  J I ♦ 1 » 

695000 

DO  BEGIN 

696000 

WRITE(PRINT*FL220*LISTA>) 

697000 

ENO  UNTIL  ( JI*(  JIM  ))>JNPC0LI 

698000 

NRITE(PRINT»FL230*LIST5>) 

699000 

L310I  NRITE(PRINT#FL320*LIST6>) 

700000 

JJ*U 

70 1  COO 

00  BEGIN 

702000 

JI*11 

703000 

DO  BEGIN 

704000 
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SVAFLUX[Jl»JJ)«-0)  705000 

END  UNTIL  ( JI ♦< JI ♦ 1 )  )>JNPC0L  END  UNTIL  ( JJ*( JJ  +  1 ) )>JNDMAX)  706000 

IF  ( JNHI$T< JNHMAX )  THEN  60  TO  L450)  707000 

IF  (XPR*( JINDX) )>0  THEN  60  TO  L450)  706000 

IF  XPR<0  THEN  60  TO  L«10)  709000 

JINDX*-1)  710000 

JJ*1)  711000 

00  8E6IN  712000 

J I ♦ 1 ^  713000 

00  8E6IN  714000 

SV4FLUXI  JI»  JJUSVSAFLUXt  JI#JJ1/JF6R0UP)  715000 

END  UNTIL  (JIM JI*1>>>JNPC0L)  716000 

SVSTFLUX[JJJ«.SVFFLUXt  JJ1/JF6R0UP1  717000 

ENO  UNTIL  ( JJM JJ*1))>JN0MAX>  716000 

WRITE(PRINTtPA6E]>)  719000 

NRITE(PRINT#FL400)I  720000 

60  TO  Ll 15)  721000 

L410I  JINDXM)  722000 

JJ*1)  723000 

00  BE6IN  724000 

JIM)  725000 

DO  8E6IN  726000 

SVAFLUX  t Jl#JJ)*S0RT((SVS0FLUXtJI#JJl/JF6R0UP*2)-(SVSAFLUXf  727000 

JI»JJ1)*?/(JF6R0UP*3)))  7:8000 

ENO  UNTIL  ( JIM  JI ♦ 1 ) > > JNPCOL )  729000 

$V$TFLUXtJjH$QRT(($VOVFLUXt JJJ/JF6R0UP*2)-($VFFLUXtJJl*2/  730000 

JF6R0UP*3)>)  731000 

ENO  UNTIL  (JJ»( JJ*1)J>JN0MAX)  732000 

NRlTE(PRINTtPA6E]>)  733000 

WRITECPRINT#FL450))  734000 

60  TO  L 1 15)  735000 

L450I  ENO)  736000 
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PROCEDURE  5RANGLE •  737000 

BEGIN  7 38000 

INTEGER  JJ>JI  I  739000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIREDl  7A0000 

SRRANDAI  M 1000 

FORMAT  FL 15 ( /"  NO  ANGLE  PROBABILITY  COULD  RE  FOUND  GREATER  THan"#E 1 0 , 3 )  *  7A?000 

Fl 3 A ( /"  INCORRECT  SUBSCRIPT  FOR  ANGLE  PROBABILITY.")!  7A3000 

LIST  LISTl(JRN)!  7AA000 

LABEL  L20»L35>LA0>LA5>L50!  7«5000 

JI«-1!  7  A  6000 

DO  BEGIN  7 #7000 

SRRANDAf JIBASA# JRN)!  7#8000 

JJMJ  7  fl  9000 

DO  BEGIN  750000 

IF  (SVPAGt  JJUJRN)  THEN  GO  TO  L?OI  751000 

END  UNTIL  (JJ*<  JJM))>JNAGI  752000 

WRITE(PRINT,FL15»LIST1)I  753000 

JWHOA* JWHOA+1!  75A000 

GO  TO  L50I  755000 

L20I  IF  (JJ>1)  THEN  GO  TO  L 35 )  756000 

*RITE(PRINT»FL3A>!  757000 

JWHOA*  JWHOAM !  758000 

GO  TO  L50I  759000 

L  35 1  SRRANDAf JIBAS5» JRN)I  760000 

SVSANGt  JI  I«-SVCANGt  JJ-1)- JRN*< SVC ANGt  JJ-1) -SVC ANGt  JJ))I  761000 

IF  (XPR4-( JNA0P))>0  THEN  GO  TO  LAO!  762000 

IF  XPR<0  THEN  GO  TO  LA5!  763000 

jPJMUSVPAGt  JJ-1 1!  76A000 

SVWEIGHTt JI )*(l/<SVPAGtJ J)-JPJM1))*<SVC ANGt JJ-1 1-SVC ANGt JJl) /(SVC ANGt  1  7  65000 

] -SVC  ANG  t  JN AG ) ) I  766000 

GO  TO  L50I  767000 

LAOI  SVWEIGHTt JI HSVWAGt JJ1I  768000 
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GO  TO  L50J  769000 

L 45 1  SVME 1  GMT [ J!  1*1 1  770000 

L50I  ENO  UNTIL  ( J I ♦ C JIM ) )>JNPARTJ  771000 

END)  772000 

PROCEDURE  SRPATMLJ  773000 

BEGIN  774000 

INTEGER  JJI  REAL  AOJUST  I  775000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIREOl  776000 

SRRANDAI  777000 

FORMAT  F L 1 3 0 < /"  LOC  »"#I4,"  J  *"#I4#"  JHR  »"#I4»"  JHT  «*j.I4#"  RN  ■"#  778C00 

S 1 #E 1 0  • 3/"  RHO  S 1 #E 1 0. 3# "  COTH  ■  "# S 1 #E 1 0 . 3# "  TAUH1  «"#S1#E10.3#  779000 

"  TAUH2  »"#Sl#El0.3/"  PL  »"»Sl ,E10. 3#"  M2  »"#S1#E10. 3)1  760000 

LIST  LIST1 < JLOC# JJ» JJM0» JJHT# JRn# JRHO# JCOTH# JTAUM1 » JTAUH2* JPL# JM2)  J  761000 

LABEL  L30#L50#L70#L100»L105#L140#L60#LnO#L?5>  782000 

SRRANOAC JIRAS2# JRN)I  763000 

JL0C*25 J  764000 

JPL*0 J  765000 

IF  (ABS(JCOTH)  i  JSMVAL)  THEN  GO  TO  L25  I  786000 

IF  JC0TH»0  THEN  GO  TO  L30)  767000 

L25I  JRHO  ♦  -LN(JRN)  I  768000 

GO  TO  L50)  789000 

L 30 1  JUPLMIT  ♦  (SVTAUtJNOH)  -  JTAUH1)  t  JCOTH  I  790000 

ADJUST  1  •  EXP(-JUPLMIT)  I  791000 

JRHO  «•  -LN(1  -  JRN  *  AO  JUST )  )  79200  0 

JWAIT  «■  JWAIT  *  ADJUST  I  793000 

L50I  JTAUH2«-JTAUH1*JRH0kJC0THJ  794000 

IF  ( JT AUH2»0 )  THEN  GO  TO  L60I  795000 

JTAUH2*SVTAU[ 1 )  J  796000 

JH2*«JOLONG)  797000 

JJHB+1 J  796000 

JJHT*2)  799000 


GO  TO  L 1 05 ) 


600000 
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l*0l  JJM)  801000 

on  begin  eo?ooo 

IF  CJTAUH2<SVTAUr JJ j )  THEN  GO  TO  L70)  803000 

ENO  UNTIL  ( JJM JJM) )>JNOH>  804000 

JH2*  JDLONG )  805000 

JJHB*' JNOH“  1  )  606000 

JJHT*JN0H)  807000 

GO  TO  L 1 05)  608000 

170!  JJHB*JJ-1)  809000 

JJHT*JJ)  610000 

IF  ( ABSC JC0TH)>JSMVAL)  THEN  GO  TO  1100J  0!lOOO 

JH2* JH)  812000 

JPL*JRH0/C (SVTAUIJJHTJ-SVTAUt JJHB1 )/(SVHVfJ JHT 1-5 VHVI JJHB])))  813000 

GO  TO  L 1 1 0 )  81 AOOO 

LI  00  I  JH2MVHVI  JJHB  jMSVHVIJJHT  1-SVMVt  JJHB)  )*(JTAUH?-SVTAUC  JJHB)) /<  815000 

SVTAUt JJHT)-SVTAUt JJHB]))  816000 

L 1  05 *  JPLM JH2-JH1 )/JCOTH)  817000 

LllOl  IF  JIOUMPSO  THEN  GO  TO  Ll40)  818000 

WRITE(PRINT.»FL130»LIST1  ))  819000 

LlACl  END)  820000 

PROCEDURE  SRINITAL)  821000 

BEGIN  822000 

INTEGER  JJ»JI»JK,JN  )  823000 

jjM)  824000 

00  BEGIN  825000 

JLB*JNPCOlM  )  826000 

JIM)  827000 

00  BEGIN  828000 

SVSAKLUXt JI»JJ)*0)  829000 

SVS8FLUXI  JI»  jJ]«-0)  830000 

SVTFLUXf  Jl»  JJ)«-0)  8.31000 

JKM)  832000 
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DO  BEGIN  833000 

SVFLUXC JK# JI#JJ]*OI  834000 

END  UNTIL  CJK*CJKM))>JNPAJ  835000 

END  UNTIL  CJI*( JIM))>JLR»  836000 

JN*1I  837000 

00  BEGIN  838000 

SVFLUDI JN,JJ]*0|  839000 

END  UNTIL  C JN*( JNM ) )>JNRMAVJ  840000 

5VRFLUXC JJ]*OI  841000 

SVFFLUXt JJ]*OI  842000 

SVDVFLUXt  JJJ«-OI  843000 

SVFLURI JJ]*OJ  844000 

END  UNTIL  C JJ*C JJM ) )>JNDM*XI  845000 

JMAXCOL  *  01  846000 

JNWAIT  *  01  847000 

JNOGO  «■  01  848000 

JI  *  II  849000 

DO  BEGIN  650000 

SVNRICOC  JI  J  ♦  0  I  851000 

END  UNTILCJI*CJIM)>>JNRMAX>  852000 

ENDI  853000 

PROCEDURE  SRREFLCTJ  854000 

BEGIN  855000 

REAL  JDENOMJ  INTEGER  JNJJAID  856000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIRED t  857000 

SRRANOAJ  658000 

FORMAT  FL35C/"  REFLECTION  ANGLE  DISTRIBUTION  FOR  BOUNDARY"* 1 3#  859000 

•  IS  IN  ERROR, ")l  860000 

LIST  LISTl(JNRB)!  861000 

LABEL  L10*L15»L20*L33*L40*L60*L70*LB0*L100I  862000 

SWITCH  SWG01H10*L20*L1S*L20>  863000 

SRRANDAI JIBASE»JRN)I  864000 


jnrb«-jncb) 

065000 

JJAIL*-SVJREFLT[JNRB]) 

666000 

GO  TO  SWGOl  t  JJAIUJ 

867000 

L 1 0 *  JCQTH1*JRN) 

666000 

GO  TO  170) 

669000 

L 1  5  *  .ICOTHl«--JRN) 

670000 

GO  TO  L70) 

671000 

L20 l  JNRA«-SVNRFCOSt JNR8]) 

672000 

JFNRA«-JNRA) 

673000 

JI*1) 

07AOOO 

00  BEGIN 

675000 

JFI*JIJ 

876000 

SVPRFLTt  JlIOFI/JFNRA) 

877000 

IF  ( JRN<SVPRFLTt JII )  THEN  GO 

TO 

LAO) 

878000 

END  UNTIL  (JI+(JI+1))>JNRAJ 

879000 

L  33  *  WRITE(PRINT,FL35»LIST1  )) 

680000 

JWHOA*- JWHOA  +  1 ) 

881000 

GO  TO  L100) 

682000 

LAO  I  IF  (XPR4-(JI-1))>0  THEN  GO 

TO 

LAO) 

863000 

IF  XPR<0  THEN  GO  TO  L33I 

83A000 

JC0TH1«-1*(  JRN/SVPRFLTt  JII  )*(  SVRFLCO^f  JI  »  JNRRI-1 )  J 

885000 

GO  TO  L70* 

666000 

L*0«  JCOTHl«-SVRFLCOSt  JI-1>  JNRBUt  ( JRN-SVPRFLTt  JI-1I)/(SVPRFLT[  JII- 

687000 

SVPRFLTt JI-13) )*(SVRFLCOSr JI> 

JNRBJ-SVRFLCOSt  JI-1»  JNRBDI 

666000 

L70»  JSITH1«-S0RT(  1-JCOTHl*?)) 

889000 

L60»  SRRANOA( JIBAS1 * JRN)I 

690000 

JSPU2*JRN-1) 

691000 

SRRANDAC JIBAS3* JRN)) 

892000 

JCPT«-2*JRN-1) 

893000 

J0EN0H«-JCPT*24.JSPT*2) 

89C  000 

IF  ( JDENOM>  1  ?  THEN  GO  TO  L80) 

895000 

jnENOM«-SORTC  JOENOM)! 

896000 
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JCPHI1«-JCPT/JDEN0MJ  897000 

JSPHI  1*JSPT  ,'JDENOM)  e98000 

L 1  00  *  END,  899000 

PROCEDURE  SRSCTANGJ  900000 

BEGIN  901000 

REAL  JCDPHI#  JSDPHD  INTEGER  JI#JNPA$E  I  9020i/0 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQU I REO •  9C3000 

SRREFLCT#  SRRANDAI  904000 

FORMAT  FL80(/*»  THE  PHASE  ANGLE  PROBABILITIES  FOR  M ATER I  AL"#  I  3#  905000 

"  ARE  I NCORRF C  T  • " )  #  906000 

FL 1 39 1 /"  LOC  •"#14,"  NPHASE  "".IA,"  NCM  ■",14,"  REFL  ■W#E10.?#  907000 

"  CSANfi  *"#E 10#  3/"  SSANG  «",E10.3,"  CTEP  *"#£10, 3,"  STEP  ■*#E10.3#  908000 

"  DEOM  *"» E 1 0#  3# "  CDPHI  ■"#EI0.3/"  SOPHI  •"#E10.3,"  C0TH2  *"#£10. 3#  909000 

"  SITH2  *"# E 1 0#  3# "  SOEPHI  »"#E10.3/"  COEPHT  ■",E10.3,"  CPHI2  ■"#  910000 

E10.3,"  SPHI2  ■"#E10.3,"  C0TH1  ■"#E10.3/"  SITH1  ■"E10.3#  911000 

"  CPHI1  ■"#E10.3»"  SPHI1  ■"#E10.3,"  RN  ■"#E10.3)»  912000 

LIST  LIST] ( JNCM1J  913000 

LIST  LIST2( JtOC# JNPHASE# JNCM, JREFL# JCSANG# JSSAN--# JCTEP# JSTEP# JDEOM#  914000 

JCOPHI # JSOPHI # JC0TH2# JSITH2# JSDEPHI # JCOEPHI # JCPHI2#JSPHI2#JC0TH1 #  915000 

JSITH1#  JCPHI 1#  JSPHI1#  JRNM  916000 

wAHEL  L5#L10#L50,L90#L110#L120#l130#L137#L140I  917000 

IF  JREFLSO  THEN  GO  TO  L5I  918000 

SrfREFLCT)  919000 

GO  TO  L 1 37)  920000 

L5<  SRRANDAI JIB ASA# JRN) I  921000 

IF  (JRN>  JRATLEE)  THEN  GO  TO  150)  922000 

L 1 0 *  SRRANOAt JIi,A$5# JRN))  92300O 

jeSANGM-2*JRNJ  924000 

SRRANDAI JIBA$E#JRN))  925000 

IF  (JRNS, 5)  THEN  GO  TO  L120)  926000 

SRRANDAI JIBAS1 #JRN))  927000 

IF  I JRN»JCSANU»JCSANG>  THEN  GO  TO  L10  ELSE  GO  TO  L120) 


928000 


1501  SRRANDAC JIBAS2# JRN)J  929000 

JNPASE*SVNPHANGt JNCM]J  930000 

JFNPA+ JNPASE I  931000 

JIMJ  932000 

DO  BEGIN  933000 

JF I ♦ J I  J  934000 

SVFFANGt JII^JFI/JFNPAI  935000 

IF  C JRNSSVPFANGI JI ))  THEN  GO  TO  LOO  I  936000 

END  UNTIL  ( JI*C JI*1))>JNPASEI  937000 

NRITE(PPINT#FLeO»LlSTl)l  9380O0 

JNHCA* JNHOA+1 I  939000 

GO  TO  H 401  940000 

L90I  IF  C JF I > 1 >  THEN  GO  TO  L 1 1  Of  941000 

JCSANGM  +  CJRN/SVPFANGt  JI  ]  ) *  (  S VPH ANG  r  JI*JNCH]-1)I  9  42000 

GO  TO  L 1 20 1  943000 

LI  101  JC$ANG«-SVPHANGt Jl -1 » JNCM )♦( ( jRN-SVPFANGt JI -11 ) /( S VPF ANG [ Jl  )-  9  44000 

SVPFANGt JI-1I ))«(SVPHANGt Jl»JNCM)-SVPHANGt JI-1#JNCH]>I  945000 

L120I  JSSANG* SORT (l'JCSANGKJC SANG )1  946000 

L 1 30 l  SRRANDAC JIBAS3, JRN)I  947000 

JCTEPM-2»JRNJ  948000 

SRRANDAC JIRAS4»JRN)I  949000 

JSTEP* 1 "2» JRN I  950000 

JDE0M*JCTEP»2*JSTEP*2)  951000 

IF  CJDE0M>1)  THEN  GO  TO  L 1 3 0 1  952000 

JDEOH*SORTC JDEOM)l  953000 

JCDPHI*JCTEP/JDEDMI  954000 

JSDPHI*JSTEP/JDEOHI  955000 

IF  JSITH2  <  JSMVAL  THEN  BEGIN  JC0TH1  «•  JCSANGxjcOTH2  956000 

JSITH1  ♦  JSSANGJ  957000 

JCPHI1  *  JCDPHII  958000 

JSPHI1  ♦  JSDPHII  959000 

END  ELSE  REGIN  960000 
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JC0THUJC0TH2xJC$ANG*JSITH2xjS5ANGxjCDPHI) 

JSITHU$QRT( 1-JCOTHUJCOTHl  >) 

JSt)EPHI*(J5sAr*S*JS0PHl)/JSITHl) 

JCDEPHUt  JCSANG-JC0THl*jC0TH2)/(  J$!YHtxjSITH2)) 

JCPHIUJCPHI2*JCDEPHI-JSPHI2xJS0EPHI) 

JSPHIUJSPHl2xjC0EPHUJCPHI2xj$i?EPHT) 

END) 

11371  JC0TH2* JCOTHl ) 

JSITH2*JSITH1) 

JCPHI2* JCPHl  1 1 
J5PHI2*J5PHI  1 ) 

JL0C«-80) 

IF  JIDUMPSO  THEN  GO  TO  LUO) 

MRITE(PRINT#FL139#LIST2>) 

LUO*  END) 

PROCEDURE  SRDBEAM) 

BEGIN 

INTEGER  JJ»  JJ2)  PEAL  JVD) 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIRED* 

SROSTBD#  SRSEARCH) 

FORMAT  FLU<"  MS  IS  GREATER  THAN  HVfNOH).  ") 

Fl230("  RADIATION  RESEARCH  ASSOCIATES  -LITE-  PROBLEM"# 1 10) * 
FL2A0(/"  DIRECT  BEAM  LIGHT  INTENSITIES"// 

"  DETECTOR  OIRECT  INTENSITY"? » 

FL250(/"  "»I6»XS»EU.4>) 

LIST  LISTK JNPROB)) 

LIST  LIST2(JJ»SVDBFLUXIJJ]>) 

LABEL  L3#L100»L210»L300#L280) 

JJ2*2) 

DO  BEGIN 

IF  (JHSSSVHVt JJ21)  THEN  60  TO  L3) 

END  UNTIL  (JJ2»(JJ2*1) )> JNOH) 


96100C 

962000 

963000 

964000 

96SOOO 

966000 

967000 

968000 

969000 

970000 

971000 

972000 

973000 

974000 

975000 

976000 

977000 

978000 

979000 

960000 

981000 

982000 

963000 

964000 

985000 

986000 

987000 

986000 

989000 

990000 

991000 


992000 
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WRlTEfPRINT#FLll>) 

GO  TO  L300I 

L 3 »  JJHB«-JJ2-U 

JJHT*JJ2J 

JJ4-1 1 

00  BEGIN 

JVO«-SVHDr  JJI’JHS) 

JT *SORT ( JV0*2+SVR0t JJ3*2)I 
JC0TH*JVD/ JTJ 

IF  ( ABSC JC0TH)>JSMVAL)  THEN  GO  70  1100* 

JRH0T«-J7*(SVTAUt  JJHT3-SVTAUI  JJN0])/(SVHV[  JJHT]-SVHVt  JJHB]  )) 

GO  TO  L21 0) 

LlOOt  JRHOT  ♦  (SVTAUHOt JJJ-JTAUH  )/JCOTHI 
L210I  SVDBFLUXt  JJUSVDBSSt  JJ)*EXP(-JRH0T)/JT>'2J 
ENO  UNTIL  (  JJ«-C  JJ*1 )  )>JNOMAXI 
WRITE(PRINTtPAGE)  )7 
WRITE(PRINT#FL230»LIST1)I 
NRITE(PRINT#FL2A0)» 
jjmj 

00  BEGIN 

WRITE(PRINT,FL250»LIST2)I 
ENO  UNTIL  C  JJ*C  JJM  >  )>JNDMAXJ 
WRITE(PRINTtPAGE) )) 

L280 l  JWH0A*JWH0A*1 ) 

L  300 1  END) 

PROCEDURE  srchzckj 
BEGIN 

INTEGER  Jll# JlNAG# JINPA# JlNPCDL# JTNRFI # JINRF2# JlNRF, JJCHECH, JJCHECK# 

JJ» JNRF1# JNRF2# JNRF3* JNRF# JNAG1 # JNPA1* JNPC0L1  J 
FORMAT  Fl_25C"  THE  NUMBER  OE  REFLECTION  80UNDR IES"» T 3# 

"  EXCEEDS  THE  LIMIT  OF  5  ALLONEO"#".OATA  CHECK  CONTINUES...")# 

Fl«5("  THE  NUMBER  OF  DETECTORS"*  13#"  EXCEEDS  THE  LIMIT  OF  |0  ALLOWED"# 


993000 
994000 
995000 
996000 
997000 
996000 
999000 
1000000 
1001000 
1 002000 
1U03000 
100A000 
1005000 
1006000 
1007000 
1 006000 
1009000 
1010000 
1011000 
1012000 
1013000 
1014000 
1015000 
1016000 
1017000 
1016000 
1019000 
1020000 
1021000 
1022000 
1023000 
1024000 
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* , OAT  A  CHECK  CONTINUES...")#  1025000 

F165C"  THE  NUMBER  OF  M A  TER  I AL S" # I  3 # "  EXCEEOS  THE  LIMIT  OF  10  ALLOWEO"#  1026000 
".OATA  CHECK  CONTINUES...")#  1027000 

FLS5C"  THE  NUMBER  OF  PRINT  COLL  I  SI ONS"# I  3#  1026000 

"  EXCEEOS  THE  LIMIT  OF  24  ALLOWED"# ". OAT A  CHECK  CONTINUES...")#  1029000 

FL105C"  THE  NUMBER  OF  PRINT  ANGLES"#I3#  1030000 

"  EXCEEOS  THE  LIMIT  OF  25  ALLOWED"#". OATA  CHECK  CONTINUES...")#  1031000 

FL125C"  THE  NUMBER  OF  SOURCE  AngLES"#I3#  1032000 

"  EXCEEDS  THE  LIMIT  OF  37  ALLOWED"# " .OATA  CHECK  CONTINUES...")#  1033000 

FL145C"  THE  NUMBER  OF  REG  I ONS"# 1 4# "  EXCEEOS  THE  LIMIT  OF  50  ALLOWED"#  1034000 

".OATA  CHECK  CONTINUES...")#  1035000 

FL165C"  THE  NUMBER  OF  BOUNORIES"# 14#  1036000 

"  EXCEEOS  THE  LIMIT  OF  50  ALLOWFO"#".OATA  CHECK  CONTINUES...")#  1037000 

F L 1 8 C ( "  COSINE  SOURCE  ANGLES  MUST  BE  INPUT  IN  OESCENOING  OROER"#  1038000 

".OATA  CHECK  CONTINUES...")#  1039000 

FL215C"  COSINE  PRINT  ANGLES  MUST  BE  INPUT  IN  OESCENOING  OROER"#  1040000 

".OATA  CHECK  CONTINUES...")#  1041000 

FL235("  REFLECTION  ANGLES  MUST  RE  INPUT  IN  OESCENOING  OROER"#  1042000 

".OATA  CHECK  CONTINUES...")#  1043000 

Fl270("  REFLECTION  COSINES  MUST  BE  INPUT  IN  OESCENOING  OROER"#  1044000 

".OATA  CHECK  CONTINUES...")#  U/45000 

FL315C"  DIFFERENTIAL  COSINES  MUST  BE  INPUT  IN  OESCENOING  OROER"#  1046000 

".OATA  CHECK  CONTINUES...")#  1047000 

FL355C"  PHASE  ANGLES  MUST  BE  INPUT  IN  OESCENOING  OROER"#  1048000 

".OATA  CHECK  CONTINUES.,.")#  1049000 

FL385C"  ANGLE  PROBABILITIES  MUST  BE  INPUT  IN  ASCENOING  ORDER"#  1050000 

".OATA  CHECK  CONTINUES...")#  1051000 

FL 4 1 5 ( "  INPUT  NUMBER  OF  COLlISSION  MUST  BE  IN  ASCENOING  OROER"#  1052000 

".OATA  CHECK  CONTINUES...")#  1053000 

F L 4 35 C "  "#"  THERE  ARE  A  TOTAL  0F"#I5#"  INPUT  OATA  ERRORS"///  1054000 

"TAKE  PROBLEM  OFF  COMPUTER  ANO  CORRECT  ERRORS.  BETTER  LUCK  NEXT  "#  1055000 

"TIME")#  1056000 
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FU55C"  INPUT  DATA  SEtHS  ”0  BE  ALLBIGHT. 
LIST  LIST1CJNRELB)) 

LIST  L I ST?( JNDM AX )  ) 

LIST  L I S T  3 C JNM AT )  ) 

LIST  LI ST4( JNPCOL ) ) 

LIST  L I ST5( JNPA  ) ) 

LIST  LIST6C JNAG)) 

LIST  L I ST7( JNRMAX  )  ) 

LIST  LISTS ( JNBMAX )  I 
LIST  LJST9C JJCHECK)) 

LABEL  L30>L50,L70,L90,!.110»L130,L150,L170 
L320»L360,L370#L390»LA20,L“S0I 
JJCHECK4-0I 

IE  ( JNRELBS5 )  THEN  GO  TO  L30) 
NR1TE(PRINT#EL25»LIST1  )l 
JJCHECK«-JJCHECK*U 

L 30 1  IE  (JNDMAXS10)  THEN  GO  TO  L50) 

NRITE(PRINT»EL45»LIST2)J 

JJCHECK«-JJCHECK*1I 

L50»  IE  (JNMATS10)  THEN  GO  TO  L70) 
WRITE(PRINT#EL65»LlST3)l 
JJCHECK«-JJCHECK*1  ) 

L70I  IE  (JNPC0LS24)  THEN  GO  TO  L90) 

NRITE(PPINT,ELS5#LIST4)I 

JJCHECK«-JJCHECKM) 

L90I  IE  (JNPAS25)  THEN  GO  TO  LllO) 

NRITE(PRINT#EL105»LIST5)) 

JJCHECK«-jJCHECK*1) 

L 1 1 0 1  IE  (JNAGS37)  THEN  GO  TO  Ll3o) 

NRITE(PRINT»EL125»LIST6)I 

JJCHECK*JJCHECKMI 

L 1 30 1  IE  (JNRMAXS50)  THEN  GO  TO  L15") 


EXECUTION  CONTINUES."))  1057000 

1058000 
1 059000 
1  Of 0000 
1 061000 
1062000 
1  Of ^000 
1064000 
1065000 
1066000 

#L20G*L220,L240#L280,L  300»  1067000 

10C8000 
1069000 
1 070000 
1071000 
1072000 
1073000 
1074000 
1075000 
1076000 
1077000 
1078000 
1079000 
1080000 
1081000 
1082000 
1083000 
1084000 
1085000 
1086000 
1087000 
1088000 
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NRITE(PRINT.FL145»LI$T7)J  1089000 

JJCHECK*JJCHECKMJ  1090000 

L150I  IF  (JNBMAXS50)  THEN  GO  TO  L170J  1091000 

NRITE(PRINT»FL165»LIST8)I  1092000 

JJCHECIUJJCHECKM)  1093000 

JNAGl^JNAGM  J  1094000 

LlTOI  JJMJ  1095000 

00  BEGIN  1096000 

IF  (SVCANGt JJJiSVCANGI THEN  GO  TO  L200J  1097000 

NRITE(PRINT#rii80)J  1098000 

JJCHECK+JJCHECK+lJ  1099000 

12001  ENP  UNTIL  ( JJ*( JJ*1 ) )>JNAG1 >  1100000 

JNPAUJNPA-1J  1101000 

1102000 

00  BEGIN  1103000 

IF  (SVCIPAt JJJiSVCIPAt JJ*1 I)  THEN  GO  TO  L220J  1104000 

NRITE(PRINT,FL215)1  1105000 

JJCHECKOJCHECKMJ  1106000 

L220I  END  UNTIL  (  J J«-(  JJ*  1 ) ) > JNPA 11  1107000 

IF  JNRFLBSO  THEN  GO  TO  L300J  1108000 

JUMJ  1109000 

00  BEGIN  1110000 

JNRF+SVNRFANG(JI1)"1J  1111000 

1112000 

00  BEGIN  1113000 

IF  (SVRFANGt JJaJH JfcSVRF ANGf J J* l # JI II )  THEN  GO  TO  L240J  1114000 

NRITL(PRINT#FL«35))  1115000 

JJCHECK*JJCHECK*1 J  1116000 

L240I  END  UNTIL  (JJ+(JJ+1))»JNRFJ  1117000 

END  UNTIL  CJI1*(JI1*1))>JNRFLB1  1118000 

JI1MJ  1119000 


DO  BEGIN 


1120000 
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JNRFl*SVNRFCO$t  JIlIMJ 
JJM  J 
00  BEGIN 

IF  C$VRFLCOS[JJ#Jll]>SVRFLCOSt  JJM,  Jill)  THEN  GO  TQ  L280I 
WRITE(PRINT#F1270)J 
JJCHEC**JJCHECKM  J 
L280I  ENO  UNTIL  ( JJM J J* 1) )>JNRF1 I 
END  UNTIL  (JI1MJI1M))>JNRFLRI 
L 300 1  JI1MJ 
on  BEGIN 

IF  (SVRAVLEEt  Jll  1M  )  THEN  GO  TO  L370J 

JNRF2*SVNDFC0St Jll 1-11 

JJM) 

00  BEGIN 

IF  (SVOIFCOSI JJ,  JimSVDIFCOSt  JJM, Jill)  THEN  GO  TO  L320J 

WRITE(PRINT»FL315)) 

jjcheck*jjcheck*d 

L 320 1  END  UNTIL  {  J JM  JJM  ) )>JNRF?J 
JNRF3*SVNPHANG[  JUlMJ 
JJMI 
00  BEGIN 

IF  (GVPHANGt JJ, Jll IfcSVPHANGt JJM, Jill)  THEN  GO  TO  L360J 
WRITE(PRINT»FL355)I 
JJCHtCK^JjCHECK+lJ 
L  360  l  ENO  UNTIL  ( JJM  JJM)  )>JNRF3l 
L 370 1  ENO  UNTIL  C  J 1 1 M  J 1 1  M  )  >  >  JNM  A  T I 
JNAG1*JNAGM) 

JJM  > 

00  BEGIN 

IF  fSVPAGl JJlFSVPAGt JJ+1I)  THEN  GO  TO  L390J 
WRITE(PRINT»FL385>, 


1121000 
1122000 
1123000 
112A000 
1125000 
1  1260O0 

I  127000 
1128000 
1129000 
1130000 
1131000 
1132000 
1123000 
1134000 
1135000 
1136000 
1137000 
1138000 
1139000 

I I  40000 
1141000 
1142000 
1143000 
1144000 
1145000 
1146000 
1147000 
1148000 
1149000 
1150000 
1151000 


JJCHECK>JJCHECHM  J 


1152000 
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13901  END  UNTIL  <  JJ*C  JJM  )  )>JNAGP  11 

JNPC0L1 ♦ JNPCOL" 1 J  11 

JJM)  ll 

DO  BEGIN  11 

IT  (SVINCOLtJJlSSVINCOLCJJ+ll)  THEN  GO  TO  L420)  11 

NRITE(PRINT#FL415))  11 

JJCHECK*JJCHECK*1)  11 

L«20»  END  UNTIL  ( J J* ( JJ* 1 ) ) > JNPCOL 1 1  11 

IE  JJCHECKSO  THEN  GO  TO  L450J  11 

NRITE(PPINT[PAGEI  )I  11 

NRITE(PR1NT#FL«35#LIST9)>  11 

ERRCR(0)l  11 

L450I  NRITE(PRINT#FL455))  11 

ENDI  11 

PROCEDURE  SRMAINI  11 

BEGIN  11 

INTEGER  JJAIL#  JJ2I  11 

REAL  JFRACTI  11 

COMMENT  THE  FOLLOWI™  SUBROUTINES  ARE  REQUIRED!  11 

SRINITAL*  SRSEARCH#  SRAVRAGE#  SRANSNER#  SRANGLE#  SRPATHL#  SRDSTBD#  11 
SRRANDA#  SROETECT #  SRSCTAnG)  11 

FORMAT  FLU<"  HS  IS  GREATER  THAN  HV(NOH).  ")#  11 

FL6(/"  CANNOT  LOCATE  REGION  CONTAINING  SOURCE  PARTICLE.")#  11 

FL76(/"  LOC  «M»*"  NPART  «"#I4#"  NSP  ■••#14#"  NHIST  *"#I6#"  NCR  *"#  11 

14,"  NCOL  ■"»!«/"  Hi  «"#E10. 3,"  R1  «"#El0.3#"  C0TH1  *"#El0.3#  11 

"  SITH1  *"#E1 0. 3/"  CPH11  «"#E10.3»"  SPHI1  «"#E10,3#"  WAIT  *"#  11 

E10.3),  11 

FL96(/"  LOC  *"#U#"  NCR  •"#14,"  NCM  *"#I3#"  R  *",E10.3#"  H  «"#E10.3/  11 
"  COTH  *"#E10«3»"  SITH  «",E10.3,"  CIPH  *"#E10.3,"  SPHI  *"#L10.3)#  11 

FL106(/"  A  NEGATIVE  OR  ZERO  PATH  LENGTH  NAS  GENERATED#  PL«"#E10.3>#  11 

FL1 36C ✓"  PROGRAM  FAILED  TO  CALCULATE  DISTANCE  TO  A  BOUNDARY.")#  11 

FL i 42( /"  LOC  *"# 14#"  NCR  *"#I4,"  NCS  »"#I4#"  T  *"#E10.3#"  SUMDST  «"#  11 


53000 

54000 

55000 

56000 

57000 

58000 

59000 

60000 

61000 

62000 

63000 

64000 

65000 

66000 

67000 

66000 

69000 

70000 

71000 

72000 

73000 

74000 

75000 

76000 

77000 

78000 

79000 

80000 

81000 

62000 

83000 

84000 
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E10.3/"  D 7 S T  «"#E10.3#"  RMOT  *",E10*3»"  OT  »»»EIO,3*"  HT  «%E10.3/  1 

"  RHO  ■"»E10. 3»"  NCH  ■***!♦**•  NLM  «"»I4)»  1 

FI.147E/"  LOC  ■",I4»"  NCH  NLM  H  «",E10.3»"  TS  ■  1 

CIO, 3/"  RT  ■"»E10»3»"  CPHI  ■"»El0.3»«  R  «%E10,3)»  1 

FL177C/"  CANNOT  FIND  REGION  CONTAINING  PARTICLE  COORDINATES*  H«"*E10.3»  1 

"  R»"#ElO. 3)#  1 

Fl26«</"  LOC  ■"»!•»'»  NCRl  ■"#14#"  NCR2  «"»I4»"  OIST  ■"*£10,3*  1 

"  OT  ■"»E10.3/*  T  ■"»ElO,3»"  SUHOST  «"*E10,3»"  H2  ■"*E10,3*  1 

"  TS  «"»ElO,3/"  RT  ■"»E10,3»"  CPHI 2  ■"»E10.3»"  R2  ■"*E10.3*  1 

"  SPHI2  ■"jEIO, 3/"  C0TH2  •"#E10.3**  SITH2  ■"*ElO,3*"  NCOL  ■*»I4)I  1 

LIST  LISTK JLOC#JNPART»JNSP»JNHIST»JNCR#JNCOl»JHI» JR  1  * JCOTH1 » J$ I TH1 ,  1 

JCPHI1* J$PKIl»JWA!T)J  1 

LIST  LIST2E JLOC»JNCR,jNCM* JR,JH,jCQTH»JSITH»jCPHl» JSPHI  )l  1 

LIST  LIST3EJPLH  1 

LIST  LI$T4(JL0C»JNCR,JNCB»JT*JSUHD*T» JOIST* JRHOT* JOT* JHT»JRhO*jNCM,jNLH>  1 
l  1 

LIST  LTST5(JL0C*JNCM, JNLM,JH,JT$,JRT» JCPHI.JR)!  1 

LIST  LIST6'JH»JR)J  1 

LIST  LISTT(JNLM))  1 

LIST  LIST«( JLOC* JNCRl* JNCR2* JO  I  ST » JOT » JT» JSUMDST* JH2* JTS* JRT* JCPHI2* JR2*  1 
JSPHI2# JC0TH2»JSITH2» JNCOlU  1 

BEGIN  1 

LABEL  L7»L10»L60»L70»L80,L100»L110»1120»L130»L140»L144,L150»L161» 

L 3»  L8»  L1600*  1 

L165#L166.L170*Ll80»L3l0»Ll88»L2»  L250»L260»L268»  1 

L320»L340»L350J  1 

SNITCH  SNG01H165*H65»L161»L161)  1 

,‘npartonhmax  oiv  jngroupj  1 

JN$P*>JNPARTM)  1 

JNHlST*OI  1 

JNDEVG*0)  1 

SRINITALI  1 


185000 

188000 

187000 

leeoco 

189000 

190000 

191000 

192000 

193000 

19A000 

195000 

196000 

197000 

198000 

199000 

200000 

201000 

202000 

203C00 

204000 

205000 

206000 

207000 

208000 

209000 

210000 

211000 

212000 

213000 

214000 

215000 

216000 
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JM®Rr.S*-jNSOREGI  1217000 

JMHOA+O)  1216000 

JH4.JHSI  1219000 

1220000 

JJ2»2)  1221000 

00  BEGIN  1222000 

IF  (XPR*( JHS-SVHVt JJ2]))«0  TH£N  60  TO  L2I  1223000 

IF  XPR<0  THEN  GO  TO  L3I  1224000 

END  UNTIL  ( JJ2*( JJ2M ))>JNOHl  1225000 

NRITE(PRINT»FL11 ))  1226000 

GO  TO  L 3501  1227000 

L  3 1  JTAUH«-$VTAUI  JJ2-1  ]*{SVTAUt  JJ2I-SVTAUI JJ2-1])*(  JHS-SVHVt  JJ2-l])/{  1228000 

5VHVIJJ2I-SVHVI JJ2-1 1)1  1229000 

GO  TO  LBI  1230000 

L?«  JTAUH«-SVTAUr  JJ2]I  1231000 

Lfll  JERRORS^JHHOAI  1232000 

SRSEARCHI  1233000 

IF  ( JtRRORS<JHHOA)  THEN  GO  TO  L340)  1234000 

IF  ( JNCR«JNSOREG)  THEN  GO  TO  L7|  1235000 

HRITE(PRINT»FL6)I  1236000 

GO  TO  L350I  1237000 

L 7 *  JREFL»OI  1236000 

L 1 0 *  IF  (XPR»( JNP4RT-JNSP))>0  ThEN  60  TO  L70I  1239000 

IF  XPR<0  THEN  GO  TO  L60)  1240000 

SRAVRAGE  I  1241000 

IF  ( JNHISTONHMAX)  THEN  GO  TO  L60I  1242000 

SR4NSHERI  1243000 

GO  TO  L350I  1244000 

L60I  SR ANGLE)  1245000 

IF  ( JERRORS<JHHOA)  THEN  GO  TO  L340I  1246000 

JNSP»OI  1247000 

L70I  JNHIST«-JNHIST  +  1)  1246000 
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JNREFL*1» 

JLOCMOJ 

JTAUH2*JTAUHJ 

jnsp* jn$p*i  y 

JH1*JH$J 
JR  1 *0) 

jncr*jnsoregj 

JC0TH1*SVSANG[ JNSP 3 1 
JSITH1*SQRTC1-JCOTH1*JCOTH1) J 
JCPH 11*11 
JSPH 1 1*0) 

JWAIT*$VWEIGHTC JN$P]J 
JNC3L*1I 

IF  JIOUMPSO  THEN  GO  TO  L80I 

WRITE(PRINT#FL76»LIST1 )l 

LBOI  JR* JR  1 1 

JL0C*20I 

JTAUHl*JTAUH2J 

JH*JH1J 

JREFL*OI 

JCOTH* JC0TH1 ) 

JS I TH* JS I THl I 

jcphi*jcph:ii 

JSPH I  * JSPH III 

jncrujncrj 

JNCM*SVMATt  JNCRU 
IF  JIDUMPSO  THEN  GO  TO  LI 001 
WRITECPRINT»FU96»LIST2)I 
L100I  SRPATHL1 

IF  C JERRORS<JWHOA)  THEN  GO  TO  L340J 
IF  JPL>0  THEN  GO  TO  LllOJ 
WRITECPRINT»FL106»UST3)I 


1 249000 
1250000 
1251000 
1252000 
1253000 
1254000 
1255000 
1256000 
1257000 
1258000 
1259000 
1 260000 
1 261000 
1262000 
1263000 
1 264000 
1265000 
1266000 
1267000 
1268000 
1 269000 
1270000 
1 271 000 
1  272000 
1273000 
1274000 
1275000 
1276000 
1277000 
1278000 
1279000 


1280000 


122 


JWH3A*JWHDA*1) 

GO  TO  1340? 

LI  10 1  JT*JPL) 

JRH0T*0) 

LI  ?0l  JDT*0) 

JSUMD$T*0) 

JH7 *  JH) 

L 1  30 1  SROSTBD) 

IF  ( JERR0RS<JWH0A)  THEN  GO  to  L340) 

IF  JNCBfcO  THEN  GO  TO  LHC) 

WRITE(PRINT»FL136)I 
GO  TO  L350I 

L140I  JSUMDST*J$UMD$T*JDI$T) 

Jl0C*50) 

IF  JIDUMPSO  THEN  GO  TO  L144) 

HRITE(PRINT*FL142,LIST4)J 

LI 44 1  IF  (JSUHDST2JT)  THEN  GO  TO  L250) 

JNCM*$VMAT  t JNCR I ) 

JH*JH*JC0THXJDIST) 

JT$*JD!$TxjSITH) 

JBT*SQRT( JR*JR*JT$*JTS*2*JRxJTSxJCPhI)) 

IF  JRT  <  JSMVAL  THEN  BEGIN  jCPHl  ♦  1  IJSPHI  ♦  0  )  ENO  ELSE  BEGIN 
JCPHI*C  JT$*,'RxjCPHl)/jRT) 

JSPHI*JRxJ$PHI/JRT) 

END) 

JR* JRT ) 

JNLM+JNCM) 

Jl 00*60) 

IF  JIDUMP<0  THEN  GO  TO  L150) 

NRITECPRINT»Fl14T»LIST5)) 

L 1  50 1  IF  CSVNBOUNOt JNCBDiO  THEN  GO  TO  L170) 

JH2*JH-2xJDELTAxJC0TH) 


1281000 
1282000 
1283000 
1284000 
1285000 
1286000 
1287000 
1288000 
1289000 
1290000 
1291000 
1292000 
1293000 
1294000 
1295000 
1296000 
1297000 
1298000 
1299000 
1300000 
1301000 
1302000 
1 303000 
1304000 
1305000 
1 306000 
1307000 
1308000 
1309000 
1310000 
1311000 


1312000 
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JR2*JR-2kJ0ELTA*JSITH*JCPHI > 

IF  <JNCB#1>  THEN  GO  TO  L1600J 
JNREFL  ♦  JNREFL  ♦  1  I 
IF  ( JNREFL-JMAXRS1 )  THEN  GO  TO  L160OJ 
JNMAXR*JNMAXR*1 > 

GO  TO  LIOI 
L 1  600 1  JREFLMJ 
JNRB* JNCB J 

JjAIL*SVJREFLTtJNR8]l 
GO  TO  SWGOU JJAILJI 
L161I  JC0TH2*-1J 
GO  TO  L1661 
L165I  JC0TH2* 1 I 
LI  661  JSITM’4-0) 

JCRHI  2«- 1 ) 

JSPHI2*0J 

JWAIT*JWAIT*SVAL8ED0CJNCBll 
GO  TO  L260I 

L 1  TO  I  JMPRFOSVMPRt  JJ1»JNCR1> 

SRSEARCHI 

IF  ( JERRORSCJWHOA)  THEN  GO  TO  L340I 
IF  JNCR>0  THEN  GO  TO  L180I 
WRITE(PRINT»FL177»IIST6)> 

GO  TO  L350I 

LI  60 1  JNCR2*JNCRJ 

IF  (SVEMPt JNCR21>SVEMPt JNCR1I)  THEN 
SRRANDAt JIBAS5* JRN)I 

IF  ( JRNXSVEMPt  JNCR21/SVEMPC  JNCRim  THEN 
JWAIT4.JWAIT*(SVEMP[  JNCR1  ] /SVFHP  t  JNC»?  J)  I 
GO  TO  L1881 

L310I  SVNRICOt JNCR2]«-SVNRIC0t JNCR2]*1» 
JNRSTOP«-JNRSTOPM  J 


1313000 
1314000 
1315000 
1 316000 
1 317000 
1 318000 
1 319000 
1 320000 
1321000 
1 322000 
1323000 
1 324000 
1325000 
1 326000 
1 327000 
1328000 
1329000 
1330000 
1331000 
1 332000 
1 333000 
1 334000 
1 335000 
1336000 
1 3370O0 

GO  TO  L 1 681  1338000 

1 339000 

GO  TO  L 3 1 0 J  1  340000 

1 341000 
1342000 
1343000 


1 344000 
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GO  TO  tlOJ  1365000 

L1«S*  J0T*JDT6J0I$T|  1366000 

JNCM»SVMTCJN<'R]f  1367000 

GO  TO  LI  301  1  366000 

L?50l  JOISUJT-JOTI  1  369000 

JH2»JH*JC0THxJ0I$TJ  1350000 

JTS*JOISTxjSITHJ  1351000 

JRT*$ORT( JRxjr*jtsxjTS*2xjRkjTSxJCPHI >J  1  352000 

IF  JRT  <  JSMVAL  THEN  BEGIN  JCPHI2*  1  J  JSPH 1 2*  0  I  END  ELSE  BEGIN  1  353000 

JCPHI2*C JTStJRxjCPHI)/JRT/  j 356000 

JSPHI2«-JRxjSPHI/JRT|  1355000 

E*0*  1356000 

JR2*JRTJ  1357000 

JC0TH2* JCOTH J  1358000 

JSI TH2* JSI TH J  1359000 

JFRACUCJH2-SVHVI JJH8 )  > /( S VHVt J JHT 1-SVHVt  JJHRDJ  1  360000 

JRATLEE*SVRAYRt JJHBJ*(SVRAYRI JJHTl-SVRAYRt JJHBlixjERACTI  1 361000 

SVCRATIOtJNCM]*SVSCATRt JJH8 !♦ C SVSC ATRI JJHT1-SVSC ATRf J JH0 ] > x JFR4C T»  1362000 

JWAIT«-JWAITxSVCRATlOI  JNCM])  ,  363ooo 

L260I  JNCR2*JNCR)  1364000 

JL0C*70I  1365000 

IF  JIOUMPSO  THEN  GO  TO  L268J  1366000 

NRITE(PRINT»FL264*LIST8)J  1367000 

L266I  SROETECTI  1368000 

IF  C JERRORS<JNHOA>  THEN  GO  to  L360I  1369000 

JNCOL*JNCOLMI  1  370000 

IF  C JNCOLSJNCMAX)  THEN  60  TO  L320J  1371000 

JMAXCOL  +  JMAXCOL+U  1  372000 

JNOGO+  Ji'OGO*  1 J  1  373000 

GO  TO  L 1 0 J  1374000 

L320I  JNOGO  ♦JN060  ♦  II  1375000 


SRSCTANG! 


1 376000 
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IT  ( JERRORS<JWHOA>  THEN  GO  TO  13401 

JR1*JR2J 

JH1*JH2) 

JNCR*JNCR2> 

IF  ( JWA I T> JWCO )  THEN  GO  TO  L6GJ 
JNWAIUJNWAIT*!) 

GO  TO  L 1 0 1 

L 340 1  IF  ( JWHOA>JELIM)  THEN  GO  TO  L350J 
JFRRORS* JWHOA J 
GO  TO  L 1 0 1 
L 350 1  END  END! 

PROCEDURE  MAINPRO! 

BEGIN 

INTEGER  Jll# JI2#JI3# JI4# Jl CHECK, J JAIL# JL I  SI  »  JL I S2#  I  ,  J J 
INTEGER  DX 1 #  DX2  J 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIRFOl 
SRCHECK#  SRMAIN#  SRDBEAMI 
FORMAT  FL 10(5110)# 

FL110(?I10,4R10.4)# 

FL  1  30 ( 6R 1 0 , 4 )  , 

Fl 170(4RJ0.4)» 

FL210(2I10#R10.4)# 

FL230(3l5»R5.2»8l5)» 

FL310(2R10.4,I10»R10.4)» 

FL330( /"  SVHDfJ)  IS  GREATER  THAN  SVMV(JNOH)  FOR  J  »"#I4# 

FL 350  (/"I*"»I4#"J»"»I4#"TAUH0t I)*" #S1 # El 0 . 3) # 

FL 410(6110)# 

FL510(R10.4>» 

FL810(6I10)» 

FL905( t 

n 


1377000 
1 378000 
1379000 
1 3800(0 
1 381000 
1382000 
1363000 
1384000 
1385000 
1386000 
1387000 
1388000 
1 389000 
1390000 
1391000 
1392000 
1393000 
1394000 
1395000 
1396000 
1397000 
1398000 
1399000 
1400000 
1401000 
1402000 
1403000 
1404000 
1405000 
1406000 
1407000 


THE  NUMBER  OF  HISTORIES  WAS  NOT  EQUALLY  DIVISIBLE  BY  THE  NUMB"# 


1408000 
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"ER  or  DEVIATION  GROUPS."/"  THE  NUMBER  OF  HISTORIES  MAS  RESET  TO"» 
161* 

FL920(/"  INPUT  NUMBER  OF  MATERIALS  DOES  NOT  AGREE  WITH  NMAT,  ">» 

Fl950(/"  INPUT  NUMBER  OF  80UN0ARIES  DOES  NOT  AGREE  WITH  NBMAX."), 
FL980(/"  INPUT  NUMBER  OF  REGIONS  OOFS  NOT  AGREE  WITH  NRMAX.")# 

FL1010(/"  INPUT  NUMBER  OF  DETECTORS  DOES  NOT  AGREE  WITH  NQMAX.")# 
FL1040(/"  INPUT  NUMBER  OF  PRINT  COLLISIONS  DOES  NOT  AGREE  WITH  NPCOL.")* 
FL1070C/"  INPUT  NUMBER  OF  PRINT  COSINES  OOES  NOT  AGREE  WITH  NPA.">» 
FL2000C/ 

"  INPUT  NUMBER  OF  REFLECTION  BOUNDARIES  OOES  NOT  AGREE  WITH  NRFL"» 
"B."), 


FL2030C/"  INPUT  SOURCE  ANOLE  OPTION  DOES  NOT  AGREE  WITH  NAOP,")» 
FL2060( /"  INPUT  NUMBER  OF  SOURCE  ANGLES  DOES  NOT  AGREE  WITH  NAG.")I 
LIST  LISTH JLIBRAY# JI1#JI2# JI3.JI4)! 

LIST  LIST21  (FOR  DX1M  STEP  1  UNTIL  JNOH  DO  ( SVHVt OX1I # SVTAUt 0X11 » 
SVSCATPtOXl  )*  SVRAYRtOXnni 


LIST  LIST2(SVNOFC0S[Jin#SVNPHANG( Jill# SVSIGNOTt JIl] »SVRAYLEE( Jill. SVA( 


jin»svcRATiocjin)i 


LIST 

LIST3(F0R 

oxi«-i 

STEP 

LIST 

LIST4(FCR 

DX1M 

step 

LIST 

LIST5(FDR 

OX  1  ♦  1 

step 

LIST 

LIST6CFDR 

DX1M 

step 

nxn 

1 »  SVCDEE [ 0X1)))I 

LIST 

L IST7(F0R 

DX1M 

step 

oxn 

#SVEMPtOXl ),FOR 

0X2M 

0X2* 

oxinm 

LIST 

LIST6(F0R 

DX1M 

step 

oxn 

»  S vouss c OX  1 ] )  >  A 

LIST 

L I ST9( F  OR 

0X1  ♦  1 

step 

LIST 

LIST  1 0( FOR 

oxui 

STEP 

LIST 

LISTlKSVALBEDO(Jlll) 

LIST 

LIST12(F0R 

DXlM 

STEP 

1  UNTIL  JLIS1  00  SVDIFC05(0X1»JI1  ] )  I 
1  UNTIL  JLIS1  00  SVP0C0Sr0Xl#JIl  1)1 
1  UNTIL  JLIS2  00  SVPHANGtDXl# JIl  1 )  J 
1  UNTIL  JI1  00  t SVNBOUNOtOXl  1»SVITYPE( 

1  UNTIL  JI2  00  (SVNREG(Oxn»SVNB(OXn#5VMATt 
STEP  1  UNTIL  4  00  ( SV IB( 0X2# 0X11 »SVMPR ( 

1  UNTIL  JI1  00  tSVHO(OX11,SVRO(OXll,SVNPHIO( 

1  UNTIL  JI1  00  SV INCOL t  OX  1  ] )  J 
1  UNTIL  JI2  00  SVCIPAtOXlDI 
I 

1  UNTIL  Jl 3  00  SVRFANGIOXI# Jill)) 


1409000 

1410000 

1411000 

1412000 

1413000 

1414000 

1415000 

1416000 

1417000 

1416000 

1419000 

1420000 

1421000 

1*22000 

1423000 

1424000 

1425000 

1426000 

1427000 

1426000 

1429000 

1430000 

1431000 

1432000 

1433000 

1434000 

1435000 

1436000 

1437000 

1436000 

1439000 


1440000 
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LIST  LIST13(F0R  0X1*1  STEP  1  UNTIL  JI3  00  SVPORtOXl, JI 1) )) 

LIST  LIST14(F0R  0X1*1  STEP  1  UNTIL  JH  00  SVRFLC0SCDX1* JI 1 1  )) 

LIST  LIST15(F0R  0X1*1  STEP  1  UNTIL  JI2  00  SVCANGtOXl ] )) 

LIST  LIST16CF0R  0X1*1  STEP  1  UNTIL  JI2  00  SVPAGCOXl))) 

LIST  LIST17(F0R  0X1*1  STEP  1  UNTIL  JI2  00  SVNAG(DXl))) 

LIST  LIST18I JHS* JDLONG* JDELTA#JSMVAL» JNCO# JELIM* JDHIN)) 

LIST  LIST19I JNHMAX# JNGROU(># JNRM»X# JNRMAX# JNCMAX» JNOHAX# JNPA, JNPCOL* 
JNA0P»JNAG# JNRFLB#jNMAT*JNS0RE6*JMAXR* JIBASE* JIBASi * JIBAS2* JIRAS3* 
JIBAS4#  JIB AS5 ) I 
LIST  LIST20( JNHHAX)) 

LIST  LIST23  (I*  J,  SVTAUHD [  I  ] )  ) 

LIST  LI ST22C I )  J 

LABEL  L5»Ll00,L200»L300,L400,L5O0#L^?0#L600#L700»LB0O#L900#L90e»L930» 
L5A,L5AA#L1SO»L170»L190#L506»L507»L508#L320»L390#L850» 
L960,L990,L10?0,L1050#Ll080,L20l0,L20A0,L?O70,L2087#L3000l 
SNITCH  $HG01*L800,L700>L600»L500»L<|00#L300#L200»L100»L850»L900#L3000J 
SNITCH  SNG02*L5»L520»L5»L520j 
JNHATP*OI 
JNBMAXP*0) 

JNRMAXP*0) 

JNRFLBP*0) 

JN0HAXP*0) 

JNPCQLP*0) 

jnpap*o) 

jnagp*oi 

L5AlREA0(0AT»10»ABCt*l)tL5AAI)  NRITE  C C ARD# 1 0* ABC f *  ] )  I  GO  TO  L5A) 
L5AA I  REMIND (CARO) I  CLOSE (DAT* RELEASE)) 

L5«  REA0(CARD,FL10»LIST1) (FINIS)) 

JN0G0*0) 

GO  TO  SNGOlt JLIBRAYI) 

LlOOl  JNMATP* JNMATP*1 ) 

SVMATERL(JNHATP)*JI1) 


1441000 
1442000 
1443000 
1444000 
1 445000 
1 448000 
1447000 
1 448000 
1449000 
1450000 
1451000 
1452000 
1453000 
1454000 
1455000 
1456000 
1457000 
1458000 
1459000 
1460000 
1461  COO 
1462000 
1463000 
1  464C00 
1465000 
1466000 
1467000 
1468000 
1469000 
1470000 
1471000 


1472000 
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IMI 

1473000 

DO  BEGIN 

1474000 

IF  SVMATERLmPSVHATERLt  JNMATPI  THEN 

1475000 

GO  TO  L 1 501 

1O760C0 

IF  I#JNMATP  THEN  GO  TO  11701 

1477000 

L150I  ENO  UNTIL  CI*(I*1))>  JNMATPJ 

1478000 

GO  TO  L190I 

1479000 

L170I  JNMATP*  JNMATP-ll 

1480000 

L 1  90 1  READ  (CARO*  FLUO#  LIST21J 

1481000 

JLISUSVNOFCOSC  JI1JI 

1482000 

JLI$2*$VNPHANGt JI1 II 

1483000 

IF  (SVRAYLEEIJI1U1)  THEN  GO  TO  L5I 

1484000 

RrAD(CARD#FL130#LlST3)l 

1485000 

READ(CARD#FL130*LIST4)I 

1486000 

REA0CCARD#FL130#LIST5)I 

1487000 

GO  TO  LSI 

1486000 

12001  JNBMAXP* JI 1 1 

1489000 

JNRMAXP* JI2I 

1490000 

REA0(CARD#FL210#LIST6)I 

1491000 

READ(CARD»FL230»LIST7)I 

1492000 

GO  TO  L5I 

1493000 

L300I  JNDMAXPOI1J 

1494000 

REA0(CAR0*FL310*LIST8)I 

1495000 

GO  TO  L5I 

1496000 

LSOOl  JNPCOLPOI1I 

1497000 

JNPAP4-JI2I 

1498000 

REA0(CARD*FL410«LIST9)I 

1499000 

RFAD(CARD»FL130»LIST10)I 

1500000 

GO  TO  L5I 

1501000 

L500I  JNRFLBP^JNR^LBP+II 

1502000 

SVJREFLTtJllHJI2l 

1503000 

NRFBt  JNRFLBPUJIll 

1504L00 
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IMI 

1505000 

DO  BEGIN 

1506000 

IF  NRFBtI]PNRFBtJNHFLBP)  THEN 

1S07000 

GO  TO  L5071 

1508000 

IF  IPJNRFL3P  THEN  GO  TO  L506I 

1509000 

L507I  End  UNTIL  CI  +  UM))  >  JNRFLBPI 

1510000 

GO  TO  L508I 

1511000 

L506I  JNRFLBP«-JNRFLBP-1 1 

1512000 

L508 1  READ  C C ARD»FL5 1 0. L I ST  1 1 ) 1 

1513000 

JJAIL*SVJREFIT[ jll ]J 

1514000 

GO  TO  SWG02I J  J ft  I L  3  A 

1515000 

15201  SVNRFANGC  JIl  I«-JI3> 

1516000 

REA0CCARD.FI!30#LIST12)J 

1517000 

RFAD(CARD#FL1 30,LIST1 3)) 

1518000 

SVNRFCOSt  J!l]«-JI4i 

1519000 

RFADCCARD»FL130»LIST14)I 

1520000 

GO  TO  LSI 

1 55;  1  000 

LftOOl  JNAOPP* JI 1 1 

1522000 

JNAGPOI2I 

1523000 

READ(CAoD»FL130»LIST15)J 

1524000 

REA0(CARD»FL1 30»LIST16)I 

1525000 

IF  JNA0PP<0  THEN  GO  TO  LSI 

1526000 

READCCAR0»FL1 30»LIST17)I 

1527000 

GO  TO  L5I 

1528000 

L700I  READCCARD»FL130»LIST1S>I 

1529000 

GO  TO  L5I 

1530000 

L800I  READ(CARD»FLB!0»LI$T19)I 

1531000 

GO  TO  LSI 

1532000 

L850I  JNOHOI1I 

1533000 

READ  <CARD»FL170»LIST21)I 

1534000 

GO  TO  LSI 

1535000 

L900«  JNPRflB* JI 1 1 

1536000 

* 
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JIOUHP*  JI2J  (537000 
JICHECK  * Jl 3 J  1538000 
JNPART< JNKMAX  DIV  JNGROuPJ  1539000 
IF  ( JNHMAX«JNPART*JNGROUP)  THEN  GO  TO  L908J  15A0000 
JNHMAXfJNPARTxjNGROUPI  1541000 
MRITE(PRINT#FL905#LIST20)I  1542000 
L908I  IF  ( JNMATPs JNMAT )  THEN  GO  TO  1930)  1543000 
WRITE(PRINT#FL920)J  1544000 
JN0G0*JN0G0*1 J  1545000 
L930I  IF  (JNBMAXP«JNBMAX)  THEN  GO  TO  L96GJ  1546000 
NRITE(PRINT#FL950)>  1547000 
JNOGO+ JNOGO* 1 J  1548000 
L960I  IF  ( JNRMAXP-JNRMAX)  THEN  GO  TO  L990J  1549000 
NRITE(PRINT#FL980)>  1550000 
JNOGO* JNOGO* 1 1  1551000 
L990 l  IF  ( JNOMAXP-JNOMAX)  THEN  GO  TO  L1020I  1552000 

N«fTS(MINT»r(.1010)l  1553000 

JN£iiiO  +  JNOGQ+ll  1554000 
L 1 020 1  IF  ( JNPCOLP-JNPCOL)  THEN  GO  TO  L 10501  1555000 
NRITE(PRINT#FL1040)1  1556000 
JNOGO* JNOGO+ 1  1  1557000 
L 1 0501  IF  ( JNPAP* JNPA  )  THEN  GO  TO  L 1 0801  1558000 
MRITE(PRINT#FL1070)  J  1559000 
JNOGO* JN0G0+1 I  1560000 
L 1 080 l  IF  (JNRFLBP*JNRFLR)  THEN  GO  TO  L2010J  1561000 
NRITE(PRINT#FL2000)1  1562000 
JNOGO* JNOGO+1 J  1563000 
L2010I  IF  ( JNAOPP* JNAOP )  THEN  GO  TO  L2040I  1564000 
NRITE(PRINT#FL2030)I  1565000 
JNOGO* JM3G0+1 J  1566000 
L2040I  IF  ( JN AGP* JNAG )  THEN  GO  TO  L2070I  1567000 


NRITE(PRINT»FL2060)1 


1560000 
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JNQGQ* JNOGO* 1 ) 

L2070I  IF  JN0GC>0  THEN  GO  TO  L5l 
IF  JICHECK<0  THEN  GO  TO  L2087) 

SRCHECK) 

L?087l  I*  1) 

00  BEGIN 
J*  2) 

DO  BEGIN 

IF  (SVHI)tn>SVHV[  J]  )THEN  GO  to  L  320  ) 
SVTAUHOm«-SVTAU[  J-l  ]*(SVTAUtJl  -SVTAUIJ 
(SVHVt JI-SVHVt J-l  ])) 

IF  (JIDUMP  <  0)  THEN  GO  TO  L390  I 
WRITE  (PRINT#  FL350,  LIST23)  I 
GO  TO  L  390 1 

L3?0»  END  UNTIL  (J*(JM)  )>JNOHI 
WRITE  CPRIMT#FL330»LIST22)I 
L  390 1  END  UNTILC  I«-C  !♦! )  >>JNOMAXI 
SRMAINJ 
SROBEAM) 

GO  TO  L5) 

L 3000 1  ERROR(O)) 

END) 

COMHENT  INITIALIZING  BLOCK) 

XPR«-Q«-K*-0> 

SENSWt  1 1  «-F  ALSE ) 

SENSW[?J«-FALSE) 

SENSWt  3  J«-FALSE ) 

SENSWt  A  J*-FALSE ) 

SENSWt5j4-FALSE) 

SENSWI6UFALSE) 

SENSLtlUFALSE) 

SENSLt23«-FALSE) 


1569000 

1570000 

1571000 

1572000 

1573000 

1570000 

1575000 

1576000 

1577000 

n)x(SVHOtn-SVHVtJ-n)/  157B000 

1579000 

1580000 

1581000 

ise?ooo 

1563000 
1584000 
1585000 
1586000 
1587000 
1588000 
1589000 
1590000 
1591000 
1592000 
1593000 
1 594000 
1595000 
1596000 
1597000 
1598000 
1599000 
1600000 
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SEN5im*FAlSE,  1601000 

SENSt  1 4  J*F  ALSE  J  1602000 

MAINPROJ  FINIS*  C NO J  1603000 

tKNJA*(TIMF<2)-LKNJA>/60J0«VQK«-(TlMFC3>-0KVQK)/60JFZ0VOTIME(l)JBlZATIWR  i $04000 

ITE(PRINT[PAGn>J**lTECPRI*T>CHGUB#100*lJLDU  +  GCP0V.lKNJA>DKVQK)J  1605000 

END •  1606000 
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5.2  ALGOL  LISTINGS  KOR  THE  I.1TE- 1 1  CODE 

BEGIN  FILE  OUT  PRINT  1  ( 2# IS) I  INTEGER  XR A Z 0 » V VUWU . F ZO VC . L*N j A » OK  1000 

V0K»0RANI,LJLDU,GCP0VHNTEGER  ARRAY  2IKLA.ONCCLI0I  12UF0RNAT  HWFRK  ("TIME  2000 

ON  ",I0,X96,I2,X1,A3,"  1 96S" ) # C HftllR C "T I MF  OFF  " . T # , X 30. "PRDC  .  TIME  ■"*  3000 

no#"  SECS"#  X20# "I/O  TIME  «"»I10»"  SECS"))OEFINE  BlZAT»LJl0U*F70VC  0 1 V  ?  «000 

16000)GCP0V< FZOVC  MOD  21 6000 / 3600#  I  F I LL  ZIKLA(*]WITh  0.31.59.90.120.161,  5000 

iei»212»2*..»273»30*,  33*»366)FILL  ONf C L ( »  ]  N I TH  0. "JAN", "FEB". "MAR", "APR".  6000 
"MAY","JUN","JUL","AUG"#"SEP","OtT","NOV","OEC")FZOVC»TIMEn)JLKNJA*TIME  7000 

(2))DKV0K*TIME(3))VVUWU*TIME(0))0RANI*100*VVUWU  ,(30)6]M0><VVUWU.  (36)6]*V  8000 

VUWU.(A2)6))XRAZ0»1)WHILE  OR  AN  I  iZ  I KL  A I  XR  AZO  J  00  XR  A  ZO*X»  AZO*  1 J  OR  AN  I  *OR»N  I  9000 

-7I!<LAtXRAZ0-l])BLZAT)MRITE(PRlNTfPAGE).HHFRK.100*LJL0U+GCP0V.CRANI,0NCC  10000 

L ( XRAZQ ) ) )  11000 

BFGIN  12000 

FILE  CARD  (2,10))  r'lLE  IN  OAT  (2.  10))  1  3000 

FILE  OUT  PUNCH  0(2»10)>  1#000 

FILE  XXXXXX  2(2,15))  15000 

SWITCH  FILE  FILESH*XXXXXX)  16000 

LABEL  FINIS)  17000 

BOOLEAN  ARRAY  SENSLt  ))*)»  SFNSwtOlA])  16000 

REAL  ARRAY  19000 

ABC  t  0  I  20  1  ,  20000 

SVTFLUX(0)25.  0»10)»  71000 

SVFLUXI0l25.0l25.0H0).  22000 

SV0irCDSr0l50.0l 10  ).  23000 

SVPDCOS  (0I50.0H0  I,  2 4000 

SVPHANG  (0150,0)10  I.  25000 

SVAFLUX  (0125,0)10  I,  26000 

SVPOR  (0)37,0)5  1,  270O0 

SVRFANG  (0)37,0)5  ),  28000 

SVSAFLUX(0)2S,0)  10).  29000 

svsoflux(0)25,oho  ).  30000 

SVFLUD  (0)50,0)10  ).  31000 

SVRFLCDS(0)50,0) 10  ),  32000 
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SVA  [OHO  1* 

33000 

SVCAN6  [0137  J# 

34000 

SVEMP  [0*50  1# 

35000 

SVFLUR  [OHO  1# 

36000 

SVC IPA  [ 0 < 25  1# 

37000 

SVFFLUX  [OHO  1# 

36000 

$VALBED0[0l5  1# 

39000 

SVCOEE  [0150  1# 

40000 

SV0VFLUX[0 l 10  1# 

41000 

svho  [ono  i# 

42000 

SVPAG  [0137  }« 

43000 

SVRAYLEEIOHO  ]# 

44000 

SVSANG  [015001# 

45000 

SVSTFLUX[Ol 10  1# 

46000 

SVWEIGHT[0l5001# 

47000 

SVOBFLUXIOHO  1# 

40000 

SVPFANG  [0150  1# 

49000 

SVMAG  [0137  ]# 

50000 

SVPRFLT  [0150  J# 

51000 

SVRO  [OHO  ]# 

52000 

SVRFLUX  [OHO  ]# 

53000 

SVSIGNOTIOHO  1* 

54000 

SVSUMRHOf 0 1 50  1# 

55000 

SVCRATJO  [01103  # 

56000 

SVHV[Ol 1001# 

57000 

SVTAUlOl 1001# 

56000 

SVSCATR[Ol 1 0  0 1  # 

59000 

SVRAYR[0I1001# 

60000 

SVTAUHO[Ol 101# 

61000 

SVDBSS  [OHO  11 

620C0 

INTEGER  ARRAY 

63000 

SVIB  [014  #0150  1# 

64000 

SVMPR  (014  *0150  ]' 


65000 


SVJREFlTC  0 1 5  ]# 

66000 

SVNOFCOSt  Ol 10  }> 

67000 

5VNREG  (0150  ]# 

66000 

SVINCOL  [0125  ]' 

69000 

SVMAT  (0>50  ]» 

70000 

SVNB  (0150  ]» 

71000 

SVNPHANG(Ol 10  ]# 

72000 

SVNRFANG( 0 1 5  1# 

73000 

SVNRICO  (0150  1* 

74000 

SVITYPE  (0150  ]» 

75000 

SVMATERL(0l 10  ]# 

76000 

SVNB0UN0(0I50  ]» 

77000 

SVNPHID  [0110  ]' 

78000 

NRFBt  0 1 5] #  79000 

SVNRFCOSl 0 1 5  17  80000 

REAL  81000 


JALPHA  » 

JBETA  # 

JBRAC  p 

JC9EPHI' 

JCOTH 

9 

82000 

JC0TH1  » 

JC0TH2  p 

JCPA  # 

JCPHI  , 

JCPHI1 

1 

83000 

JCPHI2  » 

JCPHID  » 

JCPRRD  # 

JCPT  , 

JCSA 

9 

84000 

JCSANG  » 

JCTEP  » 

JDELTA  , 

JOEOM  ' 

JOIFH 

9 

85000 

JOIST  * 

JOLONG  * 

JDOfr  ' 

JOT  * 

JEAH 

9 

86000 

JEtIM  * 

JFI  p 

JFNPA  , 

jfnra  , 

JH 

9 

87000 

JH 1  » 

JH2  ' 

JH$  , 

JHT  , 

88000 

JPAG  , 

JPJM1 

9 

89000 

JPL  » 

JPSCAT  » 

JR  , 

JR1  » 

JR2 

9 

90000 

JREFL  ' 

JRESULT, 

JRHO 

JRHOT  p 

JRN 

9 

91000 

JRRO?  » 

JRRD$Q  p 

JRT  . 

JSOEPHI, 

JSITH 

9 

92000 

JSITH1  p 

JSITH2  p 

JSMVAL  p 

JSOO  » 

JSPHI 

1 » 

93000 

JSPH1 1  * 

JSPHI2  , 

JSPHID  » 

JSPT  , 

JSSANG 

9 

94000 

JSTEP  » 

JSUHOST  p 

JSUMSO  ' 

JT  , 

JTt^P 

9 

95000 

JTS  p 

JUPLMIT' 

JHAIT  , 

JWCO  ' 

JNHOA 

9 

96000 
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JRATLEE#  JTAUH#  JTAUHl# 

JTAUH?# 

9, 'OOO 

JX  # 

JXR  # 

JERRORS# 

JDMIN  1 

9800C 

INTEGER 

99000 

JJHB#  JJHT #  JNREFL# 

JMAXR#  JNMAXRi 

JIB AS1 *  J1BAS2# 

100000 

JIBAS3# 

JIBAS4#  JIBAS5#  JNOH# 

101000 

JIBASE  0 

102000 

JICB  # 

JIDUMP  # 

JJ1  0 

JX  A 1  » 

JKA2  0 

103000 

JKA3  # 

JKA4  .  # 

JLA  * 

JLP  # 

JLIBRAY# 

1 04000 

JLOC  $ 

JLP  # 

JlSR  0 

JLST  0 

JMATl  0 

105000 

JMAT2  # 

JMAXCOL# 

JMPREG  # 

JNAG  0 

JNAGP  0 

106000 

JNAOP  # 

JNAOPP  # 

JNBMAX  0 

JNBMAXP# 

JNCB  0 

107000 

JNCM  # 

JNCMAX  # 

JNCOL  » 

JNCR  0 

JNCR1  0 

1C6000 

JNCR2  # 

JNCYC  # 

JNDEVG  » 

JNDMAX  » 

JNDHAXP# 

109000 

JNFORM  # 

jngrqup# 

JNHIST  » 

JNHMAX  0 

JNLB  0 

110000 

JNLM  # 

jnmat  # 

JNMATP  0 

JNOGO  # 

JNP  A  , 

111000 

JNPAP  # 

JNPART  # 

JNPHASE# 

JNPCOL  # 

JNPCOLP# 

112000 

JNPROB  # 

JNRA  0 

JNRFLB  . 

JNRFLBP# 

JNRING  0 

113000 

JNRHAX  # 

jnrmaxp* 

JNRSTOP# 

JNSOREG# 

JNST  0 

114000 

JNSP  # 

JNUB  0 

JNNAIT  # 

K#  JNRB  1 

115000 

REAL  OtXPR) 

116000 

FORMAT  F ( //////"STOP  /  PAUSE  NO.  "»I5JJ 

117000 

RFAL  PROCEDURE 

INT(ARG1  )J 

VALUE 

ARGl) 

REAL  ARGl 1 

118000 

INT«-SIGN(ARG1)*ENTIER(ABS(ARG1))» 

119000 

REAL  PROCEDURE 

TANH( ARGl ) J  VALUE 

ARGl) 

REAL  ARGli 

120000 

TANH«-((0«-EXP(ARGix2) )- 

d/comii 

121000 

REAL  PROCEDURE 

MAX(ARGi# ARG2JJ  VALUE 

ARGl# ARG2J 

REAL  ARG1#ARG2) 

122000 

MAX«>IF  ARG12ARG2  THEN 

ARGl  ELSE  ARG2 J 

123000 

real  PROCEDURE 

MINCARG1# ARG2)I  value 

ARGl # ARG2f 

REAL  ARGl #  ANG2I 

124000 

MIN+IF  ARG1SARG2  THEN 

ARGl  ELSE  ARG21 

125000 

REAL  PROCEDURE 

DIMURG1#  ARG2))  VALUE 

ARGl# ARG2I 

REAL  ARGl# ARG2I 

126000 

DIM+HAX(ARG1-ARG2»0)J 

127000 

PROCEDURE- ERROR (ARGl  )l 

value 

ARGli 

REAL  ARGli 

128000 
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BEGIN  WRITE(PRINT»F,ARGl))  Of)  Tfl  ETNTS  END)  129000 

PROCEDURE  SRRANDAC J19ASE* JRN))  130000 

INTEGER  JIBASEI  131000 

REAL  JRNI  1 32000 

BEGIN  INTEGER  A,  B)  133000 

A. (12118)  *■  JIBASt » ( 30l 1 8  ] )  1  36000 

B • r 1 ?  *  35  3  *  JIBASE.I13I35])  1  35000 

JIBASE. [12136]  ♦  A*B*JIBA$E)  136000 

A  ♦  *01  137000 

A. [  21  1  27  3  *■  JIBASE  •  t  I2l27]l  138000 

JRN  ♦  A I  139000 

JRN  *■  JRN/134217728,01  JAOOOO 

END  SRRANDA)  1 A 1 000 

PROCEDURE  SRSEARCH)  142000 

BEGIN  1  A  3000 

INTEGER  JI*JJ*JK)  1A4000 

FORMAT  Fl23(/"  BOUNDARY"* 1 3# "  HAS  BEEN  INCORRECTLY  IDENTIFIED,")*  1A5000 

FL37(/"  PDINT  LIES  ON  BOUNDARY"* I  3) »  1A6000 

Fl85( /"  SEARCH  CYCLE  THROUGH  REG  I  DNS  IS  NOT  HANDELED  PROPERLY,")*  1A7000 

Fl95</"  CANNOT  FINO  REGION  FOR  POINT  WITH  COORDINATES  R  •  "*E10.3»  1A8000 

"#  H  «  "#E10,3)»  1A9000 

LIST  LI5T1(JNCB)I  150000 

LIST  LIST2C JH» JR))  151000 

LABEL  L5»L10»l20,l25#L30#L35»l38»LA0*L50*L60*l80»L90*L97»L100)  152000 

L 5 *  JNSY*0)  153000 

JNLB«-JMPREG)  15A000 

JNIJB«-JNRMAX)  15'.'000 

L10I  JK«-JNLB)  156000 

DD  BEGIN  157000 

JJ*SVNBt JK])  158000 

JI*D  159000 

DD  BEGIN  160000 
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JNCB+ABS($VIBtJI»JK])J 

161000 

IF  <XPR«-(SVITYPEt  JNCB]-1))>0  THEN 

GO  TO 

L30) 

162000 

IF  XPR*0  THEN  GO  TO  L25* 

163000 

1.201  KRITE(PRINT»FL23»LIST1)I 

164000 

JNHOA* JNH0A+ 1 ) 

165000 

GO  TO  L50J 

166000 

125»  jyR«-5VC0EEt JNCBI-JH) 

167000 

GO  TO  1351 

16800C 

L30l  JXR«-SVCOEEt JNCB3-JR; 

169000 

L 35 «  IF  { XPR*{ JXR) )>0  THEN  GO  TO  L40J 

170000 

IF  XPR<0  THEN  GO  TO  L38J 

171000 

KRITE(PRINT,FL3r»LlSTl )t 

172000 

JH*JH*jDELTAxjCOTHl 

173000 

JR*JR*jDELTA*jSlTH*JCPHn 

174000 

GO  TO  L5J 

:?5000 

L38 t  IF  (XPR»(SVIB[ JI»JK1))>0  THEN 

GO  TO 

L60J 

1 76000 

IF  XPR»0  THEN  GO  TO  L20  ELSE  GO  TO 

L50I 

1 7 7 toO 

LAOI  IF  (XPR»(SVIB[JI»JK]))«0  THEN 

GO  TO 

L20J 

178000 

IF  XPR<0  THEN  GO  TO  L60I 

179000 

L50I  END  UNTIL  ( Jl *( JI ♦ 1 ) )> J JJ 

160000 

JNCR*JKJ 

181000 

GO  TO  L100J 

182000 

L60I  END  UNTIL  < JK«-{  JKM  )  )>JNUBJ 

183000 

IF  ( XPR*{ JNSY ) )>0  Then  GO  TO  L90J 

184000 

IF  XPR<0  THEN  GO  TO  L80J 

1 8*000 

JNSYMJ 

186000 

JNLBM t 

187000 

JNUB+JMPREGJ 

188000 

GO  TO  L 1 0) 

189000 

L80 1  NRITE(PRINT,FLB5>) 

190000 

JNHOA*  JHHOAM t 

191000 

GO  TO  L97J 

192000 
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L 9 0 *  WRITE(PRINT#FL95»L!ST2)  J 

193000 

JNHOA+ JWHOA+1 ! 

1 94000 

L97 •  JNCR*0) 

195000 

LlOOl  ENO! 

1 96000 

PROCEDURE  SRDSTBDJ 

197000 

REGIN 

1 98000 

INTEGER  JJ»JKJ 

199000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIREOl 

200000 

SRSEARCHI 

201000 

FORMAT  FL15C"  BOUNOARY"# I 3# "  HAS  BEFN  IDENTIFIED 

INCORRECTLY.")# 

202000 

FL55C/"  LOC  «"#I4#"  ICB  «"#I4#"  X  «"#E10.3#" 

BRAC  «"#E10.3# 

203000 

"  0 1  ST  *"»  E 10 • 3/"  H  «-’,El0.3»"  R  «"»ElO,3»" 

CDEECICB)  «",E10.3» 

204000 

"  I TYPE (ICB)  *"# 1 4 )  # 

205000 

FL75( /"  COLLISION  POINT  IS  WITHIN  A  OISTANCE  OF 

l.t  OELTA  FROM  BOUNQAR" » 

206000 

"v"#I4»",  IT  WAS  MOVEO  O^F  THE  BOUNDARY.")! 

207000 

LIST  LISTl(JICB)! 

208000 

LIST  LIST2(JL0C» JICB# JX# JBRAC»J0JST#JH»JR#SyC0EErJlC8I#SVITYPEr 

209000 

JICBDI 

210000 

LIST  LI  ST  3( JNCB ) ! 

211000 

LABEL  L5#L20#L30#L36»L38»L39#L56#1.60#L80J 

212000 

JNCB4-0I 

21 3000 

JJ1M! 

214000 

JL0CM05J 

215000 

L5  •  JDISUJDLONGJ 

216000 

JK4-SVNBIJNCRII 

217000 

JJMJ 

218000 

00  BEGIN 

219000 

JICB«-ABS(SVIB[  JJ»JNCR))J 

220000 

IF  CXPR*(SVITYPEt JICBJ-1))>0  THEN  GO  TO  L30! 

221000 

IF  XPR»0  THEN  GO  TO  1201 

222000 

WRITECPRINT»FL15»LIST|)J 

223000 

JHHOA+ JWHO A*1 1 

224000 

160 


60  TO  L80J  225000 

L20 1  IF  ( A35( JC0TM)SJSMVAL)  THEN  GO  TO  LAO)  226000 

JXKSVCOEEt  JIC0]-JH)/JCOTH)  227000 

GO  TO  L39)  226000 

L30I  IF  ( A8S( JSITh)SJSMVAL)  THEN  GO  TO  L60)  229000 

j8RAC*(SVC0EEt  JIC8J*2-(  JR*JSPHI  )*2>)  230000 

IF  J8RAC<0  THEN  GO  TO  160)  231000 

IF  (XPR»(SVCOEEt JIC8]-JR))>0  THEN  GO  TO  138)  232000 

IF  X»’»R<0  THEN  GO  TO  L36)  233000 

JMPREG*  JNCR)  234000 

SRSEARCH)  235000 

IF  ( JERRORS? JHHOA )  THEN  GO  TO  L5  ELSE  GO  TO  L80)  236000 

L 36 1  JX«-(-JRxJCPHI-SORT( J8RAC))/JSITH)  237000 

GO  TO  139)  238000 

L3BI  JX«-(“JR*JCPHI  *SORT(  JBRAC))/JSITH)  239000 

L39 i  IF  JIDUMPSO  THEN  GO  TO  L56)  240000 

NRITE(PRINT,FL55»LIST2,)  241000 

L56I  IF  JXSO  THEN  GO  TO  L'O)  242000 

IF  (JDISTSJX)  THEN  GO  TO  L60)  243000 

JDIST*JX+J DELTA)  244000 

JNCBOICB)  245000 

JJ1»JJ)  246000 

L6Gl  END  UNTIL  ( JJ*(  JJ+1 )  )>JK)  247000 

IF  (  JDISTM.IkJDELTA)  THEN  GO  TO  L40)  248000 

NRITE(PRINT»FL75»LIST3>)  249000 

JH*JH*JOELTAkjCOTH)  250000 

JR*jR*JDELTA*JSITH*JCPHI)  251000 

JNPREG*SVMPR[JJ1,JNCR))  252000 

SRSEARCH)  2530C0 

IF  JNCR>0  THEN  GO  TO  L5)  254000 

L80I  END)  255000 

PROCEDURE  SRDETECT)  256000 
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BEGIN  ?57000 

INTEGER  JL »  JM »  JLC#  JI#  JJ3,  JJ2J  256000 

FORMAT  FL190{"  LOC  «"»I4»"  LA  *",I4»"  LC  ■"»I4»"  LP  »",I4,  259000 

"  NCR1  *M«/"  COTH  ■  '  ,S1»E13.3,"  I  iM«»"  H2  ■  SI  » E 1  3 . 3,  260000 

"  HDU)  *"#  SI  *  El  3. 3  )#  261000 

EL240(w  LOC=  w  »  1 4  *•  w  J2  ■"*  14/"  RE  SUIT*"  #  Si  »  E 1 0 . 3*  "  FLUX  ■"»  262000 

Sl»  E13.3*  263000 

"  FLUD  ■  %S1»E13.3»"  RFlUX  S 1 , E 1 3 . 3#"  REFL  SI »  E 1 0 . 3» **  AFLUX  «"»  264000 

Sl#El3.3>)  265000 

LIST  L I  ST  1 C  JLOC  j.  JLA#  JLC#  JLP»  JNCR1#  JCOTH#  JI,  JH2,  SVHDtJIl))  266000 

LIST  LIST2C JLOC, JJ2,  JRESULT , S VFLUX T JL A , JLP, J J2 I , SVFLUD C JNCR2, J J2 1 »  267000 

SVRFLUX[JJ2I,JREFL,  SVAFLUXt JLC, JJ2] ))  266000 

LABEL  L20»L40,L60»L70»L90,L100»L120,L130,L150#L160,L170,L200,L220»  269000 

L250»L300)  270000 

COMMENT  CALCULATION  OF  FLUX  CROSSING  ALTITUOE  PLANE  I  271000 

COMMENT  DETECTORS)  272000 

COMMENT  DETERMINE  INOEX,  LA  FOR  FOR  PRINTOUT  ANGLES.)  273000 

JLM)  274000 

00  BEGIN  275000 

IF  CJC0TH2*SVCIPA[ JLl)  THEN  GO  TO  L20)  276000 

END  UNTIL  (JL*CJL+1)>>JNPA»  277000 

L20I  JL A* JL )  278000 

COMMENT  DETERMINE  NUMBER  OF  COlLOSION  PRINTOUT  GROUP  INOEX,  LC.)  279000 

JM4-1)  280000 

DO  BEGIN  261000 

IF  CSVINCOLt JMIfcJNCOL)  THEN  GO  TO  L40)  282000 

ENO  UNTIL  (JM*(JM*1 ))>JNPC0L)  283000 

LAO  *  JLCOM)  284000 

COMMENT  DETERMINE  NUMBER  OE  REFLECTION  PRINTOUT  GROUP  INOEX#  LP.)  285000 

JMM)  266000 

00  BEGIN  267000 

IF  ( JMfc JNREFL )  THEN  GO  TO  L60)  286000 
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END  UNTIL  (JM»(JM*1))>JMAXRJ 
160 1  JIPOMJ 

L70 1  JIMI 
00  BEGIN 

If  (XPR*(JH2"SVH0(JIl})«0  THEN  GO  TO  1901 
IF  XPR<0  THEN  GO  TO  L100I 
ENO  UNTIL  (JI«-( jUi;  )>JN0MAXI 
IF  ( JC0TH2*JSMVAL>*0  THEN  GO  TO  L300  ELSE  GO  TO  L120J 
L90I  JH2«-JH2*J0ELTAxjC0TH2J 
GO  TO  L70J 

COMMENT  H2  IS  BELOW  OETECTOR  PLANE  HOC  I ) I 

LlOOl  IF  MBS! JC0TH2)SJSMVAL>  THEN  GO  TO  L300I 

IF  ( XPR* ( JC0TH2 ) ) >0  THEN  GO  TO  L160I 

COMMENT  FLUX  IS  CALCULATED  FOR  OETECTORS  RELOW  H2I 

IF  XPR«0  THEN  GO  TO  L300  ELSE  GO  TO  L130J 

L120S  JJ3»JN0MAXI 

GO  TO  L150J 

LI  30 1  IF  (JISl)  THEN  GO  TO  L300I 
JJ3*JI-1I 
LI 50 *  JJ1»1I 
GO  TO  L170I 

COMMENT  FLUX  IS  CALCULATED  FOR  OETFCTOR  PLANES  ABOVE  H2J 

L160I  JJ3»JN0MAXI 

JJl»JIJ 

L 1 70 «  IF  JIOUMPSO  THEN  GO  TO  L20C; 

JL0C»90I 

WRITE(PRINT»FL190»LIST1)I 

comment  calculate  fluxesi 

L200I  JJ2»JJ1I 
DO  BEGIN 

jRESULT*JMAIT*EXP((j7AUH2*SVTAUHDfJJ?J}/JC0TH2)/ABS(JC0TH2)J 
SVFLUXt  JLA#  JLP#  JJ2USVFLUXI  JLA»  JLP»  JJ21  ♦JRESULT« 


269000 

290000 

291000 

292000 

293000 

294000 

295000 

296000 

297000 

296000 

299000 

300000 

301000 

302000 

303000 

304000 

305000 

306000 

307000 

306000 

309000 

310000 

311000 

312000 

313000 

314000 

315000 

316000 

317000 

316000 

319000 

320000 


143 


SVFLUDCoNCR2>  JJ2HSVFLUDT  JNCR2.  JJ2HJRESUI  TJ 
SVAFLUXr JLC.JJ2HSVAFLUXT JLC. JJ2 J* JRESULT) 

IF  JREFLSO  THEN  GO  TO  L2PO I 
SVRFLUXt  JJ2)*SVRFLUXl  J J2 ] ♦ JRE SULT I 
L220 1  JLOCMIOI 
IF  JIDUMPSO  THEN  GO  TO  L250) 

WRITE(PRINT»FL240.LIST2)J 

L 250 1  ENP  UNTIL  ( Jj2*(  JJ2*1 )  )>JJ3I 
L  300 l  ENO > 

PROCEOURE  SRANSWERI 
BEGIN 

REAL  ARRAY  SV 1 1  REF 1 0 1 25 ] I 

RFAL  JFGROUP.JFNHMAX)  INTEGER  JI  > J J» JK. JN>  JM  ; 

INTEGER  DX1) 

FORMAT  FL110("  RADIATION  RESEARCH  ASSOCIATES  #LITE«  FROPLEM". 1 1 0 ) » 

FL 1 20( /"  HISTORY  TERMINATION  COUNTERS. ">» 

FL130(/"  ".19. 

"  HISTORIES  WERE  TERmINATEO  WHEN  THE  COLLISION  NUMBER  EXCEEDEO". 16# 

"."/no. 

"  HISTORIES  WERE  TERMINATED  BY  THE  REGION  IMPORTANCE  PARAMETERS."/ 
110."  HISTORIES  WERE  TERMINATED  BY  MINIMUM  WEIGHT  CUTOFF."  /I10# 

"  HISTORIES  WERE  TERMINATEO  AFTER  MAXIMUM  NUM8ER  OF  REFLECTIONS.  "). 
FL 1 35  (/"  "» 1 9. 

"  COLLISIONS  OCCURRED,*). 

FL 1 50( / 

"  PARTICLES  TERMINATED  IN  EACH  RFG ION  BY  REGION  IMPORTANCE  PARAM"# 
"ETERS."). 

FL160(/ 

"  REGION  HISTORIES  REGION  HISTORIES  REGION  HISTORIES  REGIO". 
"N  HISTORIES"/ 

"  TERMINATED  TERMINATEO  TERMINATED  ". 

"  TERMINATEO"). 


321000 

322000 

323000 

32A000 

325000 

326000 

327000 

328000 

329000 

330000 

331000 

332000 

333000 

33AOOO 

335000 

336000 

337000 

338000 

339000 

340000 

341000 

342000 

343000 

344000 

345000 

346000 

347000 

348000 

349000 

350000 

351000 

352000 
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Fll70<"  "#I4#!9#It0#I9#I10#I9#It0»IO)#  353000 

r?.190(/  354000 

"  SCATTERED  LIGHT  INTENSITY  VERSUS  ANGIE  AND  NUMBER  OF  "#  155000 

"REFLECTIONS  FROM  SURFACE  1")#  356000 

Fl?00("  SOURCE  HEIGHT  H*"#E10.3#".  DETECTOR  COORDINATES  HO*"#  357000 

EiO#  3#"  R0*»"#Ei0.1#0l)#  358000 

F  L  2  i  0  ( "  ANGL  ’* X27# "NUMBER  OF  REFLECTIONS")#  359000 

FL250("  (C0SINE)"#I8#6(X9#I2))»  360000 

F|,262("  (COSINE)  TOTAL")#  361000 

FL264("  "» X23# "TOT AL" ) »  362000 

Fl266i"  "?  X34»"T0TAL")#  363000 

F1266("  *# X45» "TOTAL" ) »  364000 

Fl270("  "#X56»"T0TAl").  365000 

FL2T2("  "»X6T#"T0TAL")#  366000 


FL?T4<"  "#X7S»"T0TAL")#  367000 


FL280<"  " 

#R7,4#X1 

#?E11»4)# 

368000 

Ft  300( /" 

TOTAL 

"#rcu.4)# 

369000 

F'.450(  / 

3T0000 

M 

SCATTERED 

LIGHT 

INTENSITY  VERSUS  REGION  OF 

371000 

"SCATTER")# 

372000 

FL460(/" 

REGION 

"#X30»"DETECT0R 

")» 

373000 

FL485(/" 

01")# 

374000 

FL495(/" 

01 

02")# 

375000 

FL505( /" 

01 

0? 

03")# 

376000 

rL515(/" 

01 

02 

03  04")# 

377000 

ri525</" 

01 

02 

03  04 

05")# 

378000 

FL535</ 

379000 

89 

01 

02 

03  04  05 

"# 

380000 

99 

06")# 

361000 

rL545(/ 

362000 

99 

01 

02 

o 

Ul 

o 

o 

"# 

383000 

99 

06 

or")# 

384000 
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FL560(" 

"#I?#X3»7E11»4), 

FL580C/" 

TOTAL  "#7E11»4)# 

FL605(/" 

08"). 

FL6I5C/" 

08 

CO"), 

FL625C/" 

08 

00 

F16B0C"  LIGHT  SCATTERED  FROM  REFLECTION  SURFACES  TO  EACH  DETECTOR.")# 
FL690(/"  DETECTOR"# 13#"#  REFLECTED  FLUX  *"»El0.3)J 
LIST  LIST1C JNPROB)) 

LIST  L  T  ST  I  A  (JNOGO)I 

LIST  LIST2( JMAXCOL* JNCHAX»JNRSTOP# JNWAIT# JNMAXR)  I 

LIST  L I ST3C  FOR  DX1M  STEP  1  UNTIL  JNRM A  X  DO  r DX 1 # SVNRI CD[ DX 1 ]] )  I 

LIST  LIST«( JHS.SVHDI JJ)#SVRDf JJ))) 

LIST  L I ST5( F DR  DX1*JKA1  STEP  1  UNTIL  JKA2  DO  SVI  IRrr [ DX  1  ] )  I 
L I ST  LIST6(SVCIpAtJN)#FDR  OXlOKAl  STEP  1  UNTIL  JK  A  2  DO  SVELUXt 
JN#  DX 1 #  J J ) ) ) 

LIST  L I ST7( FDR  DX1«-JKA1  STEP  1  UNTIL  JX  A  2  DO  SVTELUX  [  OX  1  #  J  J  ])  I 
LIST  LIST9CSVNREGC JI)»FOR  OXIM  STEP  1  UNTIL  JNFORm  DO  SVELUDtJl# 
0X11)1 

LIST  LISTIOCFOR  DX1M  STEP  1  UNTIL  JNFDRM  DO  SVFLURrDXl))) 

LIST  L I  ST  1 1  (SVNREGlJI)#FOR  0X1*8  STFP  1  UNTIL  JNEORM  DO  SVELUOT 

ji#oxmi 

LIST  LIST12CEDR  DXl*B  STEP  1  UNTIL  JNEORM  DO  SVFLURt  DX1  I ) ) 

LIST  L I  ST  1 3 ( JI#SVRFLUXC JI))> 

BEGIN 

LAREL  L180,L1B5»L2«0,L261»l?63»L?65.L?67#L?69#L271#l?73»L275»LA30# 
L440#L480,L490»L500»L5iO#l520#L530,L540#L550»L600,L610#L620»L650# 

L  870) 

SWITCH  SWG01*L!2M>L263#L265»L?ft7,L289»L271»L273»L275) 

SWITCH  SWG02*L480#L490#L500#L510#L5?0»L530»L540»L600»L610#L620I 

jenhmax*jnhmax) 

JFGROUP«-JNGROliP) 


385000 
366000 
387000 
388000 
389000 
390000 
391000 
392000 
393000 
394000 
395000 
396000 
397000 
398000 
399000 
400000 
401000 
402000 
403000 
404000 
405000 
406000 
407000 
408000 
409000 
410000 
411000 
4  ‘  JOO 
413000 
414000 
415000 


JJ*1I 


416000 
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DO  BEGIN  4 1 7000 

JlST+JMAXR+II  416000 

JIM)  419000 

DO  BEGIN  420000 

JKM I  421000 

DO  BEGIN  422000 

SVFLUXf JK,JI,JJU  SVFLUX[ JK,JI# JJI/JFNHMAX)  423000 

SVFLUXI JK, JLST, JJI*  SVFLUX [ JK , JL ST# J J ] ♦  SVFlUXC JK, JI * JJ] )  424000 

SVTFLUXf  JI,  JJUSVTFLUXI  JI,JJ]  +  SVFLUXC  JK,JI,  JJ])  4  25000 

END  UNTIL  ( JKM  JKM  ))>JNPAI  426000 

SVTFLUXr  JL$T,JjH$VTFlUxr  JLST, J J ] +SVTFLUX [ JI , J J ] J  427000 

SVIIREFI  JIUJI-l)  428000 

END  UNTIL  ( JIM JI*1))>JM»XR)  429000 

JHM)  430000 

DO  BEGIN  431000 

SVFLUDf  JM,JJ]«-SVFLUDt  JM,  JJJ/JFNMMAX)  4  32000 

SVFLURT  JJUSVFLURt  JJl  +  SVFLUDt  JM,JJ1)  4  33000 

END  UNTIL  ( JMM  JMM  ))>JNRM4x)  434000 

SVRFLUXt  JJIMVRFLUXt  JJI/JFNKMAX)  4  35000 

END  UNTIL  ( JJM  JJM  ))>JNDMAX)  436000 

COMMENT  SUBROUTINE  RESULT!  437000 

WRITECPRINTIPAGE])!  438000 

MRITE(PRINT»FL110#LIST1))  439000 

WRITECPRINT»FL120)J  440000 

WRITECPRINT»FL130»LIST2))  441000 

WRITE  (PRINT, FL135»LISTl4))  442000 

IF  JNRSTOPSO  THEN  GO  TO  L180I  443000 

WRITE(PRINT»FL150>!  444000 

WRITE(PRINT»FL160>)  445000 

WRITE (PRINT»FL170»LIST3))  446000 

L 1 80 1  JJM)  447000 

DO  BEGIN  446000 
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JKA2*0l 

fl  C  9000 

JK A  3*0 • 

450000 

Liast 

NRITEtPRINTtPAGEJ) I 

451000 

MRITE(PRINT#FLUO#LlSTm 

452000 

WRITE(PRINT#FL190)J 

453000 

WRITE(PRINT,FL200,LIST4)  I 

454000 

WRITE(PRINT,FL210)J 

455000 

JK  A 1  JK  A2*  1 J 

456000 

JKA2*JKA1 *61 

457000 

IF  C JKA?< JHAXR)  THEN  GO  TO  L240J 

458000 

JKA3«-1  J 

459000 

JKA2*JMAXRJ 

460000 

IF  (JKA1>JMAXR>  Then  GO  TO  L261I 

461000 

L240I 

NRITE(PRINT#FL250#IIST5)» 

462000 

IF  .JKA3<0  THEN  GO  TO  L275J 

463000 

JK A2+ JKA2+1 1 

464000 

JKA4*JKA2-JKA1*1  * 

465000 

GO  TO 

SWGOlt JKAAll 

466000 

L261 » 

NRITE(PRINT,FL262)» 

467000 

GO  TO 

L275I 

468000 

L263I 

WRITECPRINT#FL264)> 

469000 

GO  TO 

L275JI 

470000 

L265I 

NRITE(PRINT#FL266) 1 

471000 

GO  TO 

L275J 

472000 

L267I 

NRTTE(PRINT#FL26») 1 

473000 

GO  TO 

L275I 

474000 

L269I 

WRITE(PRINT,FL270)I 

475000 

GO  TO 

1.2751 

476000 

1271 1 

NRITE(PRINT,FL272)I 

477000 

GO  TO 

L275I 

478000 

L273I 

WRITE(PRINT#FL274)I 

479000 

L275I 

JN*l  J 

480000 
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00 

BEGIN 

481000 

WRITECP«INT#rL2BC*LlST6)l 

48?000 

END  UNTIL  (JN*(JN*1 ))>JNPAI 

483000 

WRITE(PRINT#rL300,L!ST7)l 

484000 

IF 

JKA3S0  THEN  GO  TO  L185J 

485000 

ENO 

UNTIL  (  JJ*( JJ*1 ) )>JN0M4X1 

466000 

IF  (jf>‘0MAX>7)  THEN  30  TO  L4301 

487000 

JNFORM* JNOHiXI 

488000 

GO  TO 

L440I 

469000 

L430I 

JNF0RM*71 

490000 

L440I 

WRITE(PRINT[PAGE))I 

491000 

WRITFCPRINT»FL110»LISTl )l 

49P000 

HRlTECfiRINT»FL450)l 

493000 

HRITE(PRINT»FL460)I 

494COO 

GO  TO 

SHGOPt JNFORMlI 

495000 

L  4  ft  0 1 

HRITE(PRINT»FL485)I 

496000 

GO  TO 

i  5501 

497000 

L«90 1 

NR  I TE(PRINT#FL495)1 

496G00 

GO  TO 

L550I 

599000 

L500» 

HRITE(PRINT»FL505)I 

500000 

GO  TO 

L550J 

501000 

LS 1 0 1 

WRITE(PRINT»FL5!5)1 

502000 

GO  TO 

L550I 

503000 

L520 1 

HRITE(PRINT»FL525)I 

504000 

GO  TO 

L5501 

505000 

L530I 

HRITE(PRINT»FL535)1 

506000 

GO  TO 

L5501 

507000 

L540I 

WRITE(PRINT»FL543)1 

506000 

15501 

JIMI 

509000 

CO  begin 

510000 

HRI 

.u(PRINT»FL560»LIST9?> 

511000 

END 

UNTTIL  ( JI*<  J I  ♦  1  ))>JNRM4X1 

512000 

149 


WRITE(PRINT,FL5B0»LIST10>> 

IF  i  JNDM AX< JNE  ORM  )  THEN  GO  Tti  L670J 

JNEGRM*JNDMAXJ 

GP  TO  L440J 

LBOOl  WRITF(PRINT,Fl605)I 
GP  TP  LftSOJ 

LB  1 0 «  WRITF(PRINT»FL615)I 
GP  TO  LB50J 

Lfi?Ol  WRITE(PRINT»FL625)I 
LB50«  JIMI 
OP  BEGIN 

WKITE(PRINT,FL560»LIST1 1  >J 
END  UNTIL  (  JI*(  JUl  ))>JNRMAXl 
WBITE(PRINT»FI 580,  L I  ST  12  )) 

LB70«  WRITE(PRINTtPAGEI)l 
WRITE (PRINT »FL680)J 

JIM  » 

OP  BEGIN 

WRITE(PR!NT,FL690,LIST13)J 
END  UNTIL  (  jI*-(  JIM  ))>JNOMAXJ 
END  END  I 

PROCEDURE  SRAVPAGEI 
BEGIN 

INTEGER  CXi, JI, JJ» JK  »  UNDX  J 
REAL  JFP ART  ,  IFGROllP) 

FORMAT  FL  1 1  0  C  "  ", X’9, "FLUXES  FO.T  DEVIATION 
FL1?0(/"  CDLL IS  IONS", X30* "DETECTOR" 5, 


FL 1 45( /" 

01"), 

EL 155(/" 

01 

0?"'. 

FL 1 65( /" 

01 

EL  1 75  C /" 

01 

0? 

FL 1 85 ( /" 

01 

r? 

513000 

514000 

515000 

516000 

517000 

516000 

519000 

520000 

521000 

522000 

523000 

52A000 

525000 

526000 

527000 

528000 

529000 

530000 

531000 

532000 

533000 

534000 

535000 

536000 

537000 

GROUP", 13,".")#  538000 


539000 

540000 

541000 


03"), 

542000 

Oj 

04"), 

543000 

03 

C4 

05"),  544000 
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FL195(/ 


545000 


00 

o 

o 

M 

03  04 

05  ", 

590000 

99 

06"), 

547000 

FL205</ 

540000 

n 

o 

O 

03  04 

05  ", 

549000 

H 

06  07"), 

550000 

FL220(" 

", 12, X3»  7E1 1 .4  )  , 

551000 

FL230(/" 

TOTAL  ", 7E 1 1 • 4 ) » 

552000 

FL265(/" 

08"), 

553000 

FL275(/" 

00 

09"), 

554000 

FL285 ( /" 

06 

09  10"), 

555000 

FL320C/" 

BASE  FOR  RANDOM  NUMBER  GENFRt TOR  IS", 113), 

556000 

FL400  (/" 

"»X11, 

557000 

"  SCATTERED  INTENSITIES  VERSUS 

0FTECT0R  ANO  COLLISION 

NUMBER."), 

556000 

FL450  (" 

",  X 1 1 , 

559000 

"  INTENSITY  DEVIATIONS  VERSUS  OETECTOR  AND  COLLISION  NUMBER.")! 
LIST  LISTH JNDEVG)! 

LIST  LIST2(SVINC0Lt JI)>FOR  0X1*1  STFP  1  UNTIL  JNFORM  00  SVAFLUXt 
JI# 0X11)1 

LIST  LIST3IF0R  0X1*1  STEP  1  UNTIL  JNFORM  00  SVSTFLUXtOXl ]  )l 
LIST  LIST4(SVINC0Lt JI 1»F0R  0X1*8  STFP  1  UNTIL  JNOMAX  00  SVAFLUXt 
JI#!)X11)I 

LIST  LIST5(F0R  0X1*8  STEP  1  UNTIL  .'MDMAX  00  SVSTFLUX t.  OX  1 1 ) ) 

LIST  LI ST6C JIBASE)) 

LABEL  Ll25,L130.»Ll4C,L150,Ll60*L170,L180*Lt90,L200,L210*L260*L27  0, 
L280,L290,L3l0,  LU5,  L410»  L450) 

SWITCH  SWG01*L140,L150,L160»Ll70,L180*L190,L?00J 
SWITCH  SWG02*L260,L270,L280) 

JN0EVG*JN0EVG*1) 

JINOX  *  0  ! 

JFPART ♦ JNPARTI 

JFGROUP  *  JNGROUP  ! 


560000 

561000 

562000 

563000 

564000 

565000 

566000 

567000 

568000 

569000 

570000 

571000 

572000 

573000 

574000 

575000 

576000 


JJMJ 


*77000 


OP  BEGIN  578000 

SVSTFLUXt  JJ3*0J  57900C 

JIMJ  580000 

DO  BEGIN  581000 

SV*FLUX[  JI»  JJ]«-SVAELUX[  JI#  jj]/jr  PARTI  582000 

SVSAFLUXt  JI»  JJ3«-SVSAFLUX[  JI,  JJ]*SVAFLUXt  JI#  JJ3>  58  3000 

SVSOFLUXt JI* Jj3*SVSQFLUXt JI,JJ3*SVAFLUXt JI» JJ3*?»  58A000 

SVSTFLUXt JJ3*SVSTFIUX[ J J 3 +SV AFLUX t J I # JJ3 »  585000 

END  UNTIL  (JI«-(JIM))>JNPC0LJ  586000 

SVFFLUXt  JJ3*SVFFLUXt  JJ  3  ♦SVSTFLUX  t  J  J  3 1  *67000 

SVDVFLUXt  JJ3«-SVDVFLUX[  JJ3*SVSTFLUX[  JJ3*21  588000 

END  UNTIL  (  JJ«-(  JJ+1  ))>JNr»MAX>  589000 

WRITE(PRINTtPAGE3  )>  590000 

WRITE(PRINT»FL110#LIST1  )f  591000 

L 1 1 5  •  WRITE(PRINT»FL1?0)1  592000 

IF  (JNDMAX>7)  THEN  GO  TO  L1?5J  593000 

JNFORM* JNDMAX  J  59a000 

GO  TO  L 1 301  595000 

L !  25 »  JNF0RM4.7)  596000 

L 1 30 l  GO  TO  SWG01 t JNF0RM3)  *97000 

LIAO!  WRITECPRINT»FL1A5>)  598000 

GO  TO  L21 01  599000 

L 1 50  l  WRITE(PRINT»FL155)J  (*00000 

GO  TO  L210I  601000 

L 1 60  »  WRITE(PRINT»FL165>)  602000 

GO  TO  L?1 OJ  603000 

L 1  70 1  WRITE(PRINT»FL175>)  60A000 

GO  TO  L210I  605000 

L 1 80 l  WRITE(PRINT»FL185>)  606000 

GO  TO  L210I  *07000 

L 1 90 l  WRITE(PRINT»Fl195)I  608000 
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GO  TO  L210)  609000 

L200 l  WRITECPRINT#FL205)I  610000 

L?l0l  JIMJ  6)1000 

DO  BEGIN  612000 

WRITE<PRINT#FL220,LIST2>)  613000 

END  UNTIL  (JI»(JI*1)J>JNPC0LI  614000 

WfiITE(PRINT#rL230#LlST3)l  615000 

IF  ( JNDM4X6 JNFORM )  THEN  GO  TO  L 31 01  616000 

.JNFCRM*  JNDMAX*  JNFORMl  617000 

WRITE(PRINT[PAGEJ>I  615C00 

HRITE(PRTNT»rU 10#LIST1  )l  619000 

HRITE(PRIN'T,FL120)I  620000 

GO  TO  SWG02I JNFORM ] I  621000 

L?6C t  NRITE<PRINT#FL265)I  622000 

GO  T0  L290)  623000 

L270I  WRITE(PRINT#Fl275)I  624000 

GO  TO  1290)  625000 

L280$  WRITE(PRINT#FL285)I  626000 

L290I  JIM)  627000 

DO  BEGIN  628000 

NRITE(PRINT#FL220,LIST4)I  625000 

END  UNTIL  ( JI*( JI  +  1 ))>JNPCOL)  630000 

WRITE! PRINT# FL230#L I ST5))  631000 

L310I  WRI7E(PRINT#FL320#L!ST6))  632000 

jjol)  633000 

DP  BEGIN  634000 

JIM)  635000 

DO  BEGIN  636000 

SVAFLUXtJI# JJJoO)  637000 

END  UNTIL  (JI*(Jl*l))>JNPCOL  END  UNTIL  ( JJ*( J J+ 1 ) ) > JNOMAXJ  638000 

IF  ( JNHI ST< JNHMAX )  THEN  GO  TO  L450)  639000 

IF  ( XPR* ( JI NDX ) ) >0  THEN  60  TO  L450) 


6A0000 
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IF  XPR<0  THEN  GO  TO  1.410) 

JINDXf-1) 

JJ*1) 

On  BEGIN 
JI*1 ) 

DO  BEGIN 

SVAFLUXt JI» JJ]*$VSAFLUX[ Jl» JJI/JFGROUP) 

END  UNTIL  ( JI*C JI+l))>JNPCOLI 
SVSTFLUXt  JJUSVEFLUXt  JJI/JFGROUP) 

END  UNTIL  ( JJ*( JJ*1) )>JN0H4XI 
WRITEtPRINTCPAGEI  )) 

WRITE(PRINT»FL400>) 

GO  TO  LI  151 
L410I  J I NDXM 1 
JJ*1) 

DO  BEGIN 
JIM) 

DO  BEGIN 

SVAFLUX  t  JI»  JJ]«-SO«T((SVSQFLUXt  JI»  J J I /  JEGROUPO )-(  S VS AFlUX  t 
JI»JJ])*?/(JF6R0UP*3))I 
END  UNTIL  ( JI «•  ( JIM  })>JNPCOl) 

SVSTFLUXt  JJI«-SORT((SVOVFLUXt  JJl/JFGR0UP*2)-(  SVFFLUXt  JJ]*2/ 
JFGROUPM)  )) 

END  UNTIL  ( JJM JJ*1))>JNDMAX» 

WRITEtPRINTtPAGE] )) 

WRITE(PRINT»FL«50)1 
GO  TO  LI  15) 

L450I  ENO) 

PROCEDURE  SRANGLE) 

BEGIN 

INTEGER  J,J»JI  ) 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUlREOl 


641000 

642000 

643000 

644000 

645000 

646000 

647000 

646000 

649000 

650000 

651000 

652000 

653000 

654000 

655000 

656000 

657000 

658000 

659000 

660000 

661000 

662000 

663000 

664000 

665000 

666000 

667000 

668000 

669000 

670000 

6710G0 

672000 
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SRRANOA!  673000 

FORMAT  FL15C/"  NO  ANGLE  PROBABILITY  COULD  RE  FOUNO  GREATER  THAN"# E 1 0 . 3 ) #  674000 

FL34(/"  INCORRECT  SUBSCRIPT  FOR  ANGlE  PROBABILITY.")!  675000 

LIST  LISTl(JRN)!  676000 

LABEL  L20#L35#L40#L45»L50!  677000 

JIM!  670000 

00  BEGIN  679000 

SRRANDAC JlBASE# JRN)!  600000 

JJ M!  601000 

00  BEGIN  682000 

IF  (SVPAGt JJJiJRN)  THEN  GO  TO  L20!  6830GJ 

ENO  UNTIL  CJJ*(JJM))>JNAG!  684000 

WRITE(PRINT#FL15#LIST1)I  605000 

JWHOA+ JMHOA+1 !  606000 

GO  TO  L50I  607000 

L20I  IF  <JJ>1)  THEN  GO  TO  L35I  600000 

WRITE(PRINT»FL34)I  609000 

JWHOA* JWHOA+1 I  690000 

GO  TO  L50I  691000 

L 35 1  SRRANOAC JI8AS1# JRN)!  692000 

SVSANGt  JI)«-SVCANGt  JJ-l)-JRN*(SVCANGt  JJ-ll-SVCANGt  JJ) )!  693000 

IF  (XPRK  JNA0P))>0  THEN  GO  TO  L40!  694000 

IF  XPR<0  THEN  GO  TO  L45!  695000 

JPJMUSVPAGt  JJ-1 )!  696000 

SVNEIGHTt JI)*(1/(SVPAG[ Jjl-jPjMl ) )x( SVC ANGt JJ-1 l-SVC ANGt J J 1 ) /( SVC ANG 1 1  697000 

l-SVCANGt  JNAGD!  690000 

GO  TO  L50!  699000 

L40I  SVWEIGHT[JI)«-SVWAGtJJ)!  700000 

GO  TO  L50!  701000 

L45I  SVWEIGHTt  JI  )MJ  702000 

L50I  ENO  UNTIL  ( JIM JI M ) ) > JNPART!  703000 


ENO! 


704000 


PROCEDURE  SRPATHLI  705000 

BEGIN  706000 

INTEGER  JJ)  REAL  ADJUST  I  J07000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIRED*  708000 

5RRANDA)  709000 

FORMAT  F  L 1 3  0  C  /"  LOC  »">I4»"  J  «",I4,"  JH»  «**#IA»"  JHT  «",I4,"  RN  ■"»  71  0000 
S 1 » E 1 0. 3/"  RHO  «p»Si»El0.3*"  TOTH  •  " , SI » E 1 0 . 3» "  T AUH 1  «",S1,E10.3,  711000 

"  T  AUH?  »"»S1»E10.3/-  PL  «"» S 1 . E 1 0 . 3 » m  H2  ■" .  SI » E 1 0 . 3  )  I  712000 

LIST  LISTK JLOC» JJ» JJHB, JJHT, jRn* JRH0» JCDTH» JTAUH1, JTAUH2* JPL» JH2) I  713000 

LAREL  L30>L50,L70,L100»L105»L1«0»L60#L110»L?5J  714000 

SRR*NDA( JIBAS2» JRN))  715000 

JL0C*-25I  716000 

JPL*0)  717000 

IF  CABSCJCDTH)  S  JSMVAL)  THEN  GO  TO  L25  )  718000 

IF  JC0TH>0  THEN  GD  TD  L30)  719000 

L25  *  JRHO  «■  -LN(JRN)  >  720000 

GO  TD  L50)  721000 

L 30 *  JUPLMIT  ♦  (SVTAUtJNOHl  -  JTAUH1 )  /  JCOTH  )  722000 

ADJUST  ♦  1  -  EXP(-JUPLMIT)  I  723000 

JRHO  «■  -LNC1  -  JRN  *  ADJUST)  )  724000 

JWAIT  «•  JNAIT  x  ADJUST  )  725000 

L50 *  JTAUH2*JTAUH1*JRH0xJCDTh>  726000 

IF  ( JT AUH2>0 )  THEN  GO  TO  L60 1  727000 

JTAUH2*SVTAU[1)>  728000 

JH2«'*JDLDNG>  729000 

JJHBM)  730000 

JJHT*2)  731000 

GD  TO  L 1 05 1  732000 

L60I  JJM)  733000 

DD  BEGIN  734000 

IF  ( JTAUH2<SVTAUt JJ))  THEN  GO  TO  170)  735000 

END  UNTIL  ( JJ*C JJM ))>JNOHI  736000 
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JH?«-JDLOVG*  737000 

JJHBONDH-l*  738000 

JJHT»JN0H*  739000 

GO  TO  LI  051  740000 

L70I  JJHB*JJ"1*  7 0 i 00 0 

JJHT*JJ*  742000 

IF  C ABSC JCOTH)>JSHVAL)  THEN  GO  TO  1100*  7*3000 

JH2* JH*  7*4000 

JPL^JRHO/USVTAUt JJHT1-SVT4UI J JHB ] ) /( SVHV t J JHT ]-SVHV t JJH8)))*  745000 

GO  TO  L110I  746000 

L 1 0 D *  JH2«>SVHVC  JJHB]*(SVHVf  JJHT]-SVHVt  JJHBIJxC  JTAUH2-SVTAUI  JjHR])/(  747000 

SVTAUt  JJHT1-SVTAUUJHB])*  748000 

1.051  JPLMJH2"JH1)/4;C0TH*  749000 

L ! 1 0 *  IF  JIDUMPSO  «.N  GO  TO  L140I  130000 

NRITE(PRINT»FL130»LI5T1)I  751000 

LIAO*  END)  752000 

PROCEDURE  SRINITAL*  753000 

BFGIN  754000 

INTEGER  J J >  J I >  JK >  JN  *  755000 

^♦1*  756000 

DO  BEGIN  757000 

JLB*  JNPCOLM  *  758000 

JIM*  759000 

00  BEGIN  760000 

SVSAFLUXI JI# 761000 
SVSOFLUXt  JI#  JJUO*  762000 

SVTFlUXt  JI,JJ]*0*  763000 

JKMI  764000 

DO  BEGIN  765000 

SVFLUXt JK#JI#JJJ*0*  766000 

END  UNTIL  ( JK*( JKM))>JNPA*  767000 

END  UNTIL  (JIM  JIM  )  )>JLBJ  768000 


157 


JNMJ  769000 

DO  BEGIN  770000 

SVFLUDC  JN»  JJ]*0)  771000 

END  UNTIL  ( JN»( JN+1 ) )>JNRMAXJ  772000 

SVRFLUXt  JJI4-0J  773000 

SVFFLUXt JJ)*OJ  774000 

SVDVFLUXt  JJUOJ  775000 

SVFLURt  JJUO)  776000 

END  UNTIL  ( JJ»( JJ+1 ) )>JNDMAXI  777000 

JM4XC0L  ♦  01  778000 

JNWAIT  ♦  01  779000 

JNOGO  ♦  01  760000 

JI  ♦  II  781000 

DO  BEGIN  782000 

SVNRICOC  JI 3  *  0  I  783000 

END  UNTIL(JI*(JI*1))>JNRmAXJ  764000 

END)  785000 

PROCEDURE  SRREFLCTI  766000 

BEGIN  767000 

REAL  JDENOHi  INTEGER  JI,JJAIL)  766000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REOUIRED I  769000 

SRRANDA)  790000 

pORM AT  FL35(/"  REFLECTION  ANGLE  DISTRIBUTION  FOR  BOUNDARY"# I  3#  791000 

"  IS  IN  ERROR,"))  79200C 

LIST  LISTl(JNRB))  793000 

LABEL  L10»L15#I.20»L33»L40»L60»L70»L60»L100)  794000 

SWITCH  SNG0WLt0»L20»L15»L20)  795000 

SRRANOAC JIBA$3> JRN))  796C00 

JNR&*JNCB)  797000 

JJAIL«-SVJREFLTC  JNRBI)  796000 

GO  TO  SWG01 I JJAIL3)  799000 

L 1 0 1  JCOTH 1  ♦  Jf!N  I  800000 
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GO  TO  L70J 

801000 

L15I  JCOTH1 ♦-JRNI 

602000 

GO  TO  L70J 

803000 

L?0 1  JNRA*SVNRFCO$C JNRB]J 

804000 

JFNRA*JNRAI 

805000 

JIMJ 

808000 

00  BEGIN 

807000 

JFI*JII 

808000 

SVPRFLTt  JIUJFI/JFNRAj 

809000 

IF  (JRNSSVPRFLTIJI))  THEN  GO 

TO  LAO) 

610000 

END  UNTIL  (JI  +  CJIM  ))>JNRAI 

811000 

L33 1  HRITE(PRINT»FL35»LIST1)I 

612000 

JHHO A* JWHOA* 1 I 

813000 

GO  TO  L100I 

814000 

LAOI  IF  CXPR«C JI-I ) )>0  THEN  GO 

TO  LAOI 

815000 

IF  XPR<0  THEN  GO  TO  L33l 

816000 

JC0THlM*(J«N/5VPRFLTt  JIl)*(SVRFLCOSt  JI»JNR8]-1)J 

817000 

GO  TO  L70J 

818000 

L60l  JC0TH1*SVRFLC0SC JI-1» JNRBl+CC JRN-SVPRFLTI JI-11)/(SVPRFLT( Jll- 

819000 

SVPRFLTC JI-1 ]))x($VRFLCOSC JI* 

JNRB]-SVRFLC0StJI-l»JNR8))J 

820000 

L70I  J$ITH1*$0RT(1-JC0TH1*2)  J 

821000 

L60t  SRRANOAC JIBAS4, JRN)I 

822000 

J$PT*2xJRN-lJ 

823000 

SRRANOA( JIBA$5,JRN)J 

824000 

JCPT*2xjRN-l 1 

825000 

JDEN0M*JCPT*2+JSPT*2J 

826000 

IF  ( JDEN0M>1 )  THEN  GO  TO  L80J 

627000 

J0EN0H4.S0RTC  JOENOM)) 

826000 

jcphii*jcpt/jdenomj 

629000 

JSPHI14.JSPT/J0EN0H) 

630000 

LI  001  END) 

631000 

PROCEOIIRE  SRSCTANGJ 

632000 
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8EGIN  833000 

REAL  JCDPHI ,  JSDPHII  INTEGER  JI.JNPASE  I  834000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIRED*  835000 

SRREFLCT#  SRRANOA)  836000 

FORMAT  FL80( /"  THE  PHASE  ANGLE  PROBABILITIES  FOR  M ATER I AL" » I 3»  837000 

"  ARE  INCORRECT. ")»  838000 

FL139I/"  LOC  ■  "»  1 4»  "  NPHASE  «",I4,"  NCM  ■",14,"  REFL  *".E10,3»  839000 

"  CSANG  «".E10.3/"  SSANG  ■",E10.3»"  CTEP  «"»E10.3."  STEP  *"»E10.3»  840000 

"  OEDM  ■",E10.3,"  COPHI  *",E10.3/"  SOPHI  *",E10.3,"  C0TH2  ■",E10.3»  841000 

"  SITH?  ■",E1U.3»"  SOEPHI  «",E10.3/"  COEPHl  ■",E10.3»"  CPHI2  ■".  842000 

El  0 » 3 » "  SPHI2  *",E10.3,"  C0TH1  «",E10.3/"  SITHl  «",E10.3,  843000 

"  CPHI1  *",E10»3»"  SPHll  *",Elr'.3»"  RN  ■",E10.3)J  844000 

LIST  LIST1IJNCM);  845000 

LIST  LIST2C JLOC, JNPHASE, JNCM, JRFFL. JCSANG. JSSANG, JCTEP, JSTEP, JOEOM,  846000 

JCDPHI. JSDPHI, JC0TH2. JSITH2, JSOEPHT, JCOEPHI,JCPHl?, JSPHI2, JC0TH1,  847000 

JSITHl, JCPHI1,JSPHI1,JRN)I  848000 

LABEL  L5,L10,L50,L90,L1 10#L120»L1.30,L137,L140I  849000 

IF  JREFLSO  THEN  GO  TO  L5»  850000 

SRREFLCT)  851000 

“0  TO  LI  371  852000 

L 5 *  SRRANOA (JIBASE»JRN) I  853000 

IF  ( JRN>  JRATLEE)  THEN  GO  TO  L 50 »  854000 

LI  0 *  SRRANDAI JIBAS1» JRN)I  855000 

JCSANGM-2XJRNJ  856000 

SRRANOA (Jl BA S2»JRN) I  857000 

IF  (JRNS, 5)  THEN  GO  TO  L 1 201  858000 

SRRANOA ( JIRAS3* JR N) I  859000 

IF  ( JRN>JCSANGxJCSANG)  THEN  GO  TO  LlO  ELSE  GO  TO  L120I  860000 

L50 I  SRRANOA! JIBAS4, JRNJI  86100C 

JNPASE*SVNPHANG[ JNCMI J  862000 

JFNPAONPASEJ  863000 

JI*1J  864000 
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00  BEGIN 
JFI*JI) 

SVPFANGt  Jl 1+JFI/JFNPA) 

IF  ( JRNSSVPFANGt JI ])  THEN  GO  TO  L«0) 

END  UNTIl  CJI*<JIMJ>>JNPA$EJ 
NRITEIPRINT.FlBC^STl  JJ 
JNMOA*JNHOAM) 

GO  TO  L140I 

L90i  IF  ( JFI>1 ]  THEN  GO  TO  L110I 
JCSANG*l*(JRN/5VPFANGtJlJJ*C5VPHANGfJI»!NCM3»l)J 
GO  TO  L120I 

LI  101  JC$ANG*SVPHANGIJI-l#JNCMj4(CJRN-SVPFANG[JI-n)/(SVPFANGtJl]- 
5VPFANGtJI-l]))i«(5VPHANGCJI#JNCM]-SVPHANGrj-I-l#JNCH]>l 
L120I  v>SANG»SORT(l-JC$ANGxjeSANG)l 
LI  301  SRRANOA(JIBASS»JRN)) 

JCiEPM-2»JRN) 

SRRANOAC JIBASE* JRN)I 
JSTEPM-2*JRNJ 
J0E0M4.JCTE**2+JSTEP*2f 
IF  CJDE0H>1)  THEN  GO  TO  L130) 

JOEOH*SORT(  J0E0M).« 

JC0?HI*JCTEP/J0E0H1 

JSDPHIOSTEP/JDEOMJ 

IF  JSITH2  <  JSHVAL  THEN  BEGIN  JCOTHl  «•  JC S ANGxJC0TH2 
JSITH1  ♦  JSSANGI 
JCPHI1  ♦  JCOPHIJ 
JSPHII  «•  JSOPHI  t 
END  ELSE  BEGIN 

JCOTHl frJC0TH2*jCSANG*JSITH2*JSSANG*JCDPHI/ 

JSITH1  OORTCl-JCOTHi*  JCOTHl )  I 

JS0EPHI»( JSSANGx JSOPHI) /JSlTHlt 

JCDEPHIK JC SANG- JCOTHl « JCOTHL )/( JS1 THl*JSI TH?) t 


865000 

866000 

667000 

868000 

8690C0 

6?C000 

671000 

872000 

873000 

87A000 

875000 

876000 

877000 

878000 

879000 

880000 

661000 

662000 

663000 

66A000 

685000 

866000 

667000 

666000 

669000 

690000 

891000 

692000 

893000 

694000 

69S000 


696000 
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JCPHll*JCPHl2xJCDEPHI-JSPHT?xJSDf:PH!  >  697000 

jSPMii«.jSPHl2xjC0EPHl  +  JCPHI2xjS0EPHI «  898000 

FND>  699000 

L 1  3  7  l  JCOThPfJCOTHU  900000 

JSITH2*JSITH1 )  901000 

JCPHI2«-JCPHI1I  902000 

JSPHI 2* JSPH 1 1 I  903000 

J[  0C*80J  904000 

IF  JIDUMPSO  THEN  5C  TO  L140I  905000 

WRITE(PRINT,FL1 39,LIST2)J  906000 

L 1  401  END »  907000 

PROCEDURE  SROBEAMJ  908000 

BEGIN  909000 

integer  jj»  jj2>  Real  jvdj  910000 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIRED!  911000 

SRDSTBD,  SRSEARCHl  912000 

FORMAT  FL11("  HS  IS  GREATER  THAN  HV(NOH).  "),  913000 

FL230<"  RADIATION  RESEARCH  ASSOCIATES  -LITE-  PROBLEM"#  H0>#  914000 

F|_  240(  /"  DIRECT  BEAM  LIGHT  INTENSITIES"//  915000 

"  DETECTOR  DIRECT  INTENSITY"),  916000 

Fl?50(/"  "# 1 6, X8, E 1 1 • 4 ))  917000 

LIST  LIST1C JNPROBJJ  918000 

LIST  LIST2(Jj,SVDBFLUXt JJ)))  919000 

LABEL  L3,L100,L210»L300,L260)  920000 

JJ2*2>  921000 

DO  BEGIN  922000 

IF  ( JHSSSVHVI JJ21)  THEN  GO  TO  L3)  923000 

FND  UNTIL  ( JJ2*( JJ2M ) )>JNOHl  924000 

WRITE(PRINT,FL11>)  925000 

GO  TO  L300I  926000 

L 3 1  JJHB*JJ2-1»  927000 

JJHUJJ2I  926000 
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JjMJ  929000 

00  BEGIN  930000 

JV0*SVH0fJJ]-JHS»  V31000 

JT*S0RT(JV0*2*SVRDC  JJJ*2) J  932000 

jCOmjVO/JT*  » 33000 

IF  (ABS(jCOTH)>jSMVAL>  THEN  60  TO  L100I  934000 

JRHOT*JT*(SVTAUt  JJHTj-SVTaUC  JJHBD/CSVHVt  JJHTJ-SVHVt  JJHBJJI  935000 

60  TO  L210I  936000 

LlOOl  JRHOT  ♦  CSVTAUHOCJJJ-JTAUH  )/jCOTHI  937000 

L210I  SVOBFLUXf  JJUSVOBSSt  JJ1xEXP(-JR.'(0T)/jT*2l  938000 

END  UNTIL  ( JJ*C JJ* 1) ) > JND* AX  I  939000 

WRITEIPRINTtPAGE))*  940000 

WRITE(PRINT#FL230»LIST1)I  9A1000 

NRITE(PRINT#FL?40>»  942000 

JJMI  943000 

DO  BEGIN  944000 

WRITE(PRINT#FL250»LIST2)I  945000 

END  UNTIL  ( JJ*C JJ+1 ))>JNOMAX»  946000 

WRITE! PR INTtPAGE})!  94, ’000 

L280I  JWHOA+JWHOA+I)  948000 

L300I  END!  949000 

PROCEDURE  SRCHECKI  950000 

BEGIN  951000 

INTEGER  Jl»  » JIN AG, JINPA# JlNPCOL# JlNRFl # JINRF2# JINRF# JJCHECH, JJCHECK,  952000 
JJ#JNRF1# JNRF2# JNRr3»JNRF»JNAGl#JNPAl#JNPC0l 1  f  953000 

FORMAT  FL25C"  THE  NUMtsFR  OF  REFLECTION  60UN0RIES"# I  3#  954000 

«  EXCEEDS  THE  LIMIT  OF  5  /'.L0Wt'0"#".0ATA  CHECK  CONTINUES..."}#  955000 

FL45C"  THE  NUMBER  OF  DETECTORS"# 13#"  EXCEEOS  THE  LIMIT  OF  10  ALLOHEO"#  956000 

".DATA  CHECK  CONTINUES...")#  957000 

FL65!"  THE  NUMBER  OF  MA TERI ALS"# I 3»"  EXCEEDS  THE  LIMIT  OF  10  ALLOWEO"#  958000 

".DATA  CHECK  CONTINUES..."}#  959000 

FL85C"  THE  NUMBER  OF  PRINT  COLL  I SIDNS"# 1 3#  960000 
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"  EXCEEDS  THE  LIMIT  CF  24  ALLOWED", ".DATA  CHECK  CONTINUES...")*  961000 

FL105C"  THE  NUMBE«  OF  PRINT  ANGLES", 13,  962000 

"  EXCEEDS  THE  LIMIT  OF  25  ALLOWED".", DATA  CHECK  CONTINUES...")#  963000 

FL125("  THE  NUMBER  OF  SOURCE  ANGLES", I3»  964000 

"  EXCEEDS  THE  LIMIT  OF  37  ALLOWED", ".DATA  CHECK  CONTINUES..."),  965000 

FL 1 A5C"  THE  NUMBER  OF  REG  IONS", 1 4, «  EXCEEDS  THE  LIMIT  OF  50  AL.OWED",  966000 

".DATA  CHECK  CONTINUES..."),  967000 

FL165C"  THE  NUMBER  OF  BOUNDR IE S", 1 4 ,  968000 

"  EXCEEDS  THE  LIMIT  OF  50  ALLOWED", ".DATA  CHECK  CONTINUES.,.").  969000 

El  1 80( "  COSINE  SOURCE  ANGLES  MUST  BE  INPUT  IN  DESCENDING  ORDER".  970000 

".DATA  CHECK  CONTINUES..."),  971000 

FL215I"  COSINE  PRINT  ANGLES  MUST  RE  INPUT  IN  DESCENDING  ORDER",  972000 

".DATA  CHECK  CONTINUES..."),  973000 

EL235C"  REFLECTION  ANGLES  M'JST  RE  INPUT  IN  DESCENDING  ORDER".  974000 

".DATA  CHECK  CONTINUES..."),  975000 

FL270("  REFLECTION  COSINES  MUST  BE  INPUT  IN  DESCENDING  ORDER",  976000 

".DATA  CHECK  CONTINUES..."),  977000 

FL315C"  DIFFERENTIAL  COSINES  MUST  RE  INPUT  IN  DESCENDING  OROER",  978000 

".DATA  CHECK  CONTINUES..."),  979000 

EL355C"  PHASE  ANGLES  MUST  BE  INPUT  IN  DESCENDING  OROCR",  980000 

" . D 1 T A  CHECK  CONTINUES..."),  981000 

EL365("  ANGLE  PROBABILITIES  MUST  BE  INPUT  IN  ASCENDING  ORDER",  982000 

".DATA  CHECK  CONTINUES..."),  983000 

E  L  4 1 5 ( "  INPUT  NUMBER  OE  COLLISSION  MUST  BE  IN  ASCENDING  ORDER",  984000 

".DATA  CHECK  CONTINUES..."),  985000 

EL435C"  ">"  THERE  ARE  A  TOTAL  OF", 15,"  INPUT  DATA  ERRORS"///  986000 

"TAKE  PROBLEM  OFF  COMPUTER  AND  CORRECT  ERRORS.  RETTER  LUCK  NEXT  ",  987000 

"TIME"),  988000 

FL«55("  INPUT  DATA  SEEMS  TO  BE  ALLRIGHT.  EXECUTION  CONTINUES.")!  989000 

LIST  LIST1CJNRFLB)!  990000 

LIST  L I ST2( JNDMAX ) !  991000 

LIST  L I ST3( JNMAT ) !  992000 
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LIST  LI ST4 ! JNPCOL  > I 
LIST  LISTS? JNPA } I 
LIST  L I ST6! JN AG )  I 
LIST  L I ST7! JNRMAX ) t 
LIST  LISTS! JNRMAX)! 

LIST  LIST9C  JJC^ECKU 

LADEL  L30*LiO»L70»L90»LnO»Ll30,L150,L170»L200,L220,L2«0#L280#L300# 
L320»L360,L370,L390»L«20#L«50I 
JJCHECK4.0I 

IF  (JNRFLBS5)  THEN  GO  TO  L30I 

WRITE(PRINT»FL25#LIST1)I 

JJCHECK*JJCHECK*1I 

L 30 1  IF  CJNDMAXS10)  THEN  GO  TO  L50J 
WRITE(PRINT#FL45#LIST2}| 

JJCHECK«-JJCHECK+1I 

L50 I  IF  (JNMATS10)  THEN  GO  TO  L70I 

WRITE! PRINT* FL65»LlST3)  I 

JJCHECK  +  JJCHECK  +  U 

L70I  IF  (JNPC0LS24)  THEN  GO  TO  L90J 

WRITE! PR INT»FL85»LIST4)I 

JJCHECK*JJCHECK*1I 

L90«  IF  !JNPAS2s)  THEN  GO  TO  LllOl 

WRITE!PRINT»FLI05»LIST5)I 

JJCHECK*>JJCHECK-MI 

LllOl  IF  ! JNAGS37 )  THEN  GO  TO  L130I 

WRITE!PRINT»FL125»LIST6)I 

JJCHECK«-JJCHECK*1I 

L 1 30 1  IF  ! JNRHAXS50 )  THEN  GO  TO  L150I 

WRITE!PRINT»FL145»LIST7)I 

JJCHECK««JJCHECK*1I 

L150I  IF  ! JN8MAXS50)  THEN  GO  TO  L 1701 
WRITE!  PR  I’M  T»FL165»LIST8)I 


993000 

994000 

995000 

996000 

997000 

998000 

999000 

100000C 

1001000 

1002000 

100300C 

1004000 

1005000 

1006000 

1007000 

1008000 

1009000 

1010000 

1011000 

1012000 

1013000 

1014000 

1015000 

1016000 

1017000 

1018000 

1019000 

1020000 

1021000 

1022000 

1023000 

1C24000 
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JJCHECK«-JJCHECKM  J 
JNAG1 ♦ JNAG"1 ) 

LI ro*  JJ*1» 

00  BEGIN 

IF  (SVCANGt JJ]>$VCANGt J J *  1  1 )  THEN  GO  TO  L200J 
WRITE(PRINT»FL180)I 
JJCHECKOJCHECK  +  1 J 
L 2 0 0 1  END  UNTIL  (JJ*(JJM ))>JNAG1  I 
JNPAl*JNPA-l  J 
JJ*1  J 
00  BEG » N 

IF  (SVCIPAJ JJ]>SVCIPAC JJMJ)  THEN  GO  TO  L220J 

HRITECPRINT#FL215)J 

JJCHECK*JJCHECK+lJ 

L220»  ENO  UNTIL  ( J J«- ( J J*  1  ) ) > JNPA 1  > 

IF  JNRFLBSO  THEN  GO  TO  L300J 

JI1MI 

DO  BEGIN 

JNRF«-SVNRFAK*'?C  JIU-ll 
JJM  J 
DO  BEGIN 

IF  CSVRFANGt JJ»JI1 IfcSVRFANGf JJ+1 #JIl  1)  THEN  GO  TO  L240I 

wr<ITE(PRINT»FL235)) 

jjcheck^jjcheckm  j 

L2«0«  ENO  UNTIL  ( JJ*C  JJM)  )>JNRF) 

END  UNTIL  C  JI1*C  J 1 1  ♦  1  >)>JNRFLBI 
JI 1  *  1 1 
DO  BEGIN 

JNRF1*SVNNFC0SI Jlll-ll 

jjoj 

00  BEGIN 


1025000 
1026000 
1027000 
1028000 
1029000 
1030000 
1031000 
1032000 
1033000 
1 03A000 
1035000 
1036000 
1037000 
1038000 
1039000 
1040000 
1041000 
1 042000 
1043000 
1044000 
1045000 
1  046000 
1047000 
1048000 
1 049000 
1050000 
1051000 
1 O52000 
1053000 
1054000 
1055000 


IF  CSVRFLCOSt J J# JI II *5 VRFLCOS C J J+ 1 » JI 11 >  THEN  GO  TO  L280J 


1056000 
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MRITE(PRINT#FL270)J 
JJCHEC*«-JJCHECK  +  1  J 
L280l  END  UNTIL  C  JJ»C  JJM)  )>JNRF1J 
END  UNTIL  CJIUCJI1  +  1)>>JNRFLBJ 
L300I  JI1MI 
DC  BEGIN 

IF  (SVRAYLEEt JI1]«1>  THEN  GO  TO  L 3TO f 
JN«F2*SVNDFC0$C Jlll-ll 
J  J  ♦  i  * 

00  BEGIN 

IF  (SVOIFCCSI  JJ,JII  IfcSVOIFCOSt  JJ+WJIl))  THEN  GO  TO  L320J 
NRITE(PRINT#FL315)I 
JJCHECK*-JJCHECK*1I 
L320I  END  UNTIL  C JJ*( J J* 1 )  )>JNRF2I 
JNRF3*SVNPHAN6f JlIJ-ll 
JJMJ 
DO  BEGIN 

IF  (SVPHANGt JJ#jim$VPHANGr JJ+l,JllJ)  THEN  GO  TO  L360I 
NRITE(PRINT#FL355)) 

JJCHEdUJjCHECKM* 

L360I  END  UNTIL  < JJ*< JJM ) )>JNRF3I 
L3F0I  ENO  UNTIL  ( Jl 1 ♦( JI 1 ♦ 1 ) )> JNM AT) 

JNAGUJNAG-1J 
JJ*1  J 
00  BEGIN 

IF  (SVPAGC JJISSVPAGt JJ+1  ])  THEN  GO  TO  L390) 
NRITECPRINT#FL385)I 
JJCHECKOJCHECHMJ 
L390t  ENO  UNTIL  < JJ*< JJM ) >>JNAG1J 
JNPC0LUJNPC0L-1I 
JJMJ 


1057000 
105*0„0 
1059000 
1060000 
1061000 
1062000 
1063000 
1064000 
1065000 
1066000 
1067000 
1068000 
1069000 
1070000 
1071000 
1072000 
1073000 
1074000 
1075000 
1076000 
1077000 
1078000 
1079000 
1 080000 
1 081000 
1082000 
1083000 
1084000 
1085000 
1086000 
108*000 


00  BEGIN 


1068000 
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IF  (SVINCOLt JJJSSVINCDLt JJ*M)  THEN  GO  TO  L420I 

WRITE(PRINT#FL415)J 

JJCHECKfJJCHECK^U 

LA20I  ENO  UNTIL  ( JJ*( JJ*1 ) )>JNPCOL 1> 

IF  JJCHECKSO  THEN  GO  TO  L450I 
WRITE(PRINT[PAGE]  )> 

WRITE(°RINT#FL435#LIST9)J 
ERRDRC  0 )  > 

L450i  WRITE(PRINT#FL455)» 

ENO> 

PROCEDURE  SRMAIN1 
BEGIN 

INTEGER  JJ2#  JJAIL* 

REAL  JCRATIO#  JFRACT) 

COMMENT  THE  FOLLOWING  SUBROUTINES  ARE  REQUIREOl 

srinital#  srsearch#  sravrage#  sranswer#  spangle#  srpathl#  srostbo# 

SRRANOA#  SRSCTANG#  SRDETECT) 

FORMAT  FL11C"  HS  IS  GREATER  THAN  HVfNOH),  ")# 

FL6(/W  CANNOT  LOCATE  REGION  CONTAINING  SOURCE  PARTICLE.")# 

FL76(/"  LOC  »"#  1 4#"  NPART  »"#Ia,"  NSP  «"#I4#"  NHIST  »"#I6#"  NCR  »"# 
IA#"  NCOL  ■"#  I  A/"  HI  »5‘#S1#E10.3#"  R1  ■"#  S 1  #  El  0 . 3#  "  COTH1  »"#S1# 

El  0*  3# "  SITH1  »",S1#E10.3/"  CPHI1  »" # Si #E  1 0 . 3,"  SPHIl  »"#S1#E10.3, 

"  WAIT  *"#S1#E10*3), 

FL96(/"  LOC  »"# 1 4# "  NCR  »"#I4,"  NCM  «»#I3»"  R  »"#S1 #E10. 3#"  H  »"#Sl# 
E10.3/"  COTH  »"#S1#E10.3#"  SIT^i  S 1 # E  1 0 . 3# "  CIPH  »"#Sl#E10t3# 

"  SPHI  ■"#S1#E10.3)» 

FL 1 06( /"  A  NEGATIVE  OR  ZERO  PATH  LENGTH  WAS  GENERATED#  PL»"# S 1 # E 1 0 . 3 ) # 
FL136(/"  PROGRAM  FAILED  TO  CALCULATF  DISTANCE  TO  A  BOUNDARY."), 

FL 1 42( /"  LOC  ■  " #  1 4  # "  NCR  ■",14,"  NCB  ■"#14,"  T  »"#S1#E10.3, 

"  SUMOST  »", S 1 #E 1 0»  3/"  OIST  ■"# SI # El  0 . 3# "  RHOT  »"#S1#E10.3» 

"  OT  «"#S1#F10.3#"  HT  •"#Sl#rlO. 3/"  RHO  ■"# S 1 # f 1 0 . 3# "  NCM  »"#I4# 

"  NLM  b"#^)# 


1089000 
1C90000 
1091000 
1092C00 
1093000 
1094000 
1095000 
1096000 
1097000 
1096000 
1099000 
1100000 
1101000 
1102000 
1103000 
1104000 
1105000 
1106000 
1107000 
1108000 
1109000 
1110000 
1111000 
1112000 
1113000 
1 114000 
1  1  15000 
1116000 
1  1  17000 
1118000 
1119000 
1120000 
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FL  l«rc /**  LOC  «"#I4#"  NCM  «"#I4,«  NlM  H  «",S1#E10.3#"  TS  ■  "#  1121000 

S1#E10»3/"  ST  «"#$1#E10.3#"  CPHI  *"# S 1  #E  1 0 . 3# "  R  ■"# S 1 #E 10. 3 ) #  1122000 

FLinC/"  CANNOT  UNO  REGION  CONTAINING  PARTICLE  COORDINATES#  H«",Sl#  1123000 

E10.3#"  P*'’#$l  #E10. 3  )#  112A000 

FL264{  /"  LOC  *"# 14# "  NCRl  *"#I4#"  NCR2  «"#I4#"  01ST  •••#  SI  #E  1 0. 3#  1125000 

"  OT  »**#  S1#C10*3/**  T  «"#St#E10.3#"  SUMOST  ■  * # Si # E 1 0. 3#**  M2  «"#S1#  1126000 

E10.3#"  TS  ■"#51#E10.3/*  RT  •"#$'  #E10.3#"  CPHI2  ■  "#  SI #E1G.2#  112*000 

"  R2  ■"♦SWEIO.S#"  SPHI2  ■"#S1#E10.3/"  C0TH2  •**#S1#E10.3#  1128000 

*  SITH?  «"#S1#E10.3#"  NCOL  ■"#14)1  1129000 

LIST  LIST1(JL0C#JNPART*JNSP#JNHIST#JNCR#JNC0L# JH1# JR1#JC0TH1# JSITH1#  1130000 

JCPHI1#JSPHI1#  JNAIT)I  U31000 

LIST  LIST2(JL0C#JNCR#JNCM# JR # JH, JCOTH# JS I TH, JCPHI # JSPHI ) J  1132000 

LIST  LIST3C JPL)i  1133000 

LIST  LIST4(JL0C# JNCR#JNCB#JT#JSUMOST#JOIST#JRHOT#JOT#JHT# JRHO# JNCM#JNLM)  1134000 
I  1135000 

LIST  LIST5(JL0C#JNCM,JNLM#JH,JTS#JRT#JCPHI#wS)I  1136000 

LIST  LI 5T6( JH# JR) I  1137000 

LIST  LIST7( JL0C#JNCR1»JNCR2» JDIST#J0T# JT# JSUMOST# JH2# JT5# JRT# JCPHI2# JR2#  1138000 

JSPHI2# JC0TH2# JSITH2# JNCOL))  1139000 

BEGIN  1140000 

LABEL  L3»L2#LB»L7#L10#L60»L70#L80#L100#L110,L130#L140#L1««#L150#L1600#  1141000 

L1M»L  165#  L 166#  LlTO#L  180#  L310#L188#L250#L260#L269,L320#  1.340#  L350J  1142000 

SNITCH  SWG01+L165#L165#L161#L16ll  1143000 

JNPART*JNHhAX  OIV  JNGROUP)  1144000 

JNSP*JNPART*1 J  11450C0 

JNH I S  T  0 1  1146000 

JNDEVG*0)  1147000 

SRINITALI  1148000 

JMPREG*JNS0RE6J  1149000 

JHHOA+OJ  1 1 50000 

JH* JHS J  1151000 


JJ2*  21 


1152000 
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00  BEGIN 

IF  (XPR*(JH$«SVHV[JJ2]))»0  THEN  GO  TO  L2I 

IF  XPR<0  THEN  GO  TO  LSI 

ENO  UNTIL  C JJ2*C JJ2*1))>JN0H) 

WRITE(PRINT»FL11)1 
GO  TO  L 3501 

L  3  *  JTAUH*SVTAUt  Jj2-n*CSV.  ,4Ut  JJ2I-SVTAUI  JJ2-1]  )*(  jH$-SVHVt  JJ2-1I )/( 
SVHVt JJ2I-SVHVI JJ2-1  1)1 
GO  TO  L8I 

L?  *  JTAUH4-SVTAUI  JJ2II 
LB •  JERRORS* JWHOAI 
SRSEARCHI 

IF  ( JERRORS<JWHOA)  THEN  GO  TO  L340> 

if  ( jncr*jnsoreg:»  then  go  to  lti 

WRITE<PRINT»FL6)I 
GO  TO  L350) 

LTI  JREFL*0) 

L 1 0 *  IF  (XPR«-( JN»ART-JNSP))>0  THEN  GO  TO  L70J 
IF  XPR<0  THEN  GO  TO  L60l 
SR A VR AGE  I 

IF  ( JNHIST<JNHMAX)  THEN  GO  TO  L60) 

SRANSMER) 

GO  TO  L350J 
L60l  SRANGLE) 

IF  ( JERRORS<JWHOA)  THEN  GO  TO  L 340 1 
JNSP«-0) 

LTOl  JNHIST«-JNHIST*1I 

JNREFLMI 

JLOCMOJ 

JNSP*JN$PM) 

JTAUH2«-JTAdHI 


1153000 
1 15A000 
1155000 
1156000 
1157000 
1156000 
1159000 
1  160000 
1161000 
1162000 
1163000 
1164000 
1165000 
1166000 
1167000 
1166000 
1169000 
1170000 
1171000 
1172000 
1173000 
1174000 
1175000 
1176000 
1177000 
1178000 
1179000 
1160000 
1161000 
1162000 
1163000 


JHl^JHSI 


1184000 
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JNCR* JNSOREG) 

1165000 

JCOTHUSVSANGr  JNSPJ) 

1166000 

JSlTHlfSORTd-JCOTHlxJCOTHl  )> 

1167000 

JWAITfSVWEIGHTt JNSPJ) 

1168000 

JNCOLM) 

1169000 

IT  JIOUMPSO  THEN  GO  TO  L60) 

1190000 

NRITE<PRINT#FL76»LIST1 >) 

1191000 

L60 1  JL0O20) 

1192000 

JHfJHIl 

1193000 

JREFL*-0) 

1194000 

JTAUH14-JTAUH2) 

1195000 

JC0TH«-JC0TH1) 

1196000 

JSITH4-JSITH1) 

1197000 

JNCRUJNCR) 

1196000 

JNCM«.SVMATr  JNCR) « 

1199000 

IF  JIDUMPSO  THEN  GO  TO  L100) 

1200000 

WRITE(PRINT#FL96»LIST2)J 

1201000 

LlOOl  SRPATHl.l 

1202000 

IF  ( JERRORS<JWHOA)  THEN  GO  TO  L340) 

1203000 

IF  JPl>0  THEN  GO  TO  LI  10) 

' /04000 

HPITE(PRINT#FL106#LIST3)I 

1205000 

jwhoa+jmhoa+1) 

1206000 

GO  TO  L 340) 

1207000 

L110I  JT«.JPL) 

1200000 

JRHOUO) 

1209000 

JDT*0) 

1210000 

JSUMDSUO) 

1211 000 

JHT*JH) 

1212000 

L 1 30 »  SROSTBD) 

1213000 

IF  ( JERRORS<JNHOA)  THEN  GO  TO  L340) 

1214000 

IF  JNCBiO  THEN  GO  TO  LUO) 

1215000 

NRITC(PRINT,FL136>) 

f 216000 
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GO  TO  L350J 

L 1  40 1  JSUMOSTf JSUMDSUJDISTI 
JIDO50I 

IF  JIDUMPSO  THEN  go  TO  L 1 4 A 1 

NRITE(PRINT*FU<2»LIST«)I 

L 1 4 4 *  IF  (JSUMDST2JT)  THEN  GO  To  L250I 

JNCM«-SVMATr  JNCR1I 

JH«>JH  +  JCOTHxJDIST; 

JTS*JDIST*jSITHJ 

JNLM«-JNCMI 

JL0O60) 

IF  JIDUMPSO  THEN  GO  TO  1150J 

WRITE(PRINT#FL147»LIST5)I 

L 1 50 •  IF  (SVN0OUNDC JNCB]>*0  THEN  GO  TO  l 

JH2«-JH-2*JDELTAXJC0THJ 

IF  (JNCBA1)  THEN  GO  TO  L1600I 

jnrefl*jnrfflmj 

IF  (JNREFl  -  JMAXR  i  1)  THEN  GO  TO  11600 
JNMAXR  ♦  JNMAXR  ♦  1  I 
GO  TO  L 1 0  1 
L1400I  JREFL*1» 

JNRB* JNCAI 

JjAlL*SVjREFLTt JNRBIl 
GO  TO  SHG0UJJAIL)» 

(.1611  JC0Th»*-1I 
GO  TO  U66» 

1 1 66 1  JCOTh?M  I 
11661  JSI Th2*0 J 
JWAIT*JWAIT»SVALBEDOt  JNCBU 
GO  TO  L260I 

1 1  7C  l  JHPREG*6VMPR[ JJ1#JNCRII 


1217000 

1218000 

1219000 

1220000 

1221000 

1222000 

1223000 

1224000 

1225000 

1226000 

1227000 

1228000 

1229000 

1701  1230000 

1231000 

1232000 

1233000 

I  1234000 

1235000 

1236000 

1237000 

1238000 

1239000 

1240000 

1241000 

1242000 

1243000 

1244000 

1245000 

1246000 

1247000 


SRSEARCK) 


1248000 
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IF  (JERRORS<JWHOA)  THEN  GO  TO  L340J 
IF  JNCR>0  THEN  GO  TD  L180J 
WRITE(PRINT#FL177»LIST6)I 
GD  TO  L350I 
L 1  SO  *  JNCR2* JNCR J 

IF  (SVEMPt JNCR?]>SVEMP[ JNCR1I )  THEN  GO  TO  1188J 
SRRANDAC JIRASE# JRN)I 

IF  ( JRN>(SVEMP[ JNCR?l/SVEHPt JNCR1 ])I  THEN  GO  TO  L 3 1 0 1 
JMIT*jWAlT*(SVEMPt  JNCRlI/SVEMPf  JNCR? J  )t 
GD  TO  11881 

131 OJ  SVNRICOt  JNCR2USVNRIC0I  JNCR2I  +  1I 

jnrstop*jnrstdpmj 

GO  TD  L 1 0 A 

L 1 88  *  JDT* JDT  + JDI ST  I 
JNCMfSVMATt JNCRII 
GO  TO  LI  301 
L250 I  JDIST^JT-JDTI 

jh?«-jh+jcoth*jdisti 

JTS«-JDIST*JSITHJ 

JCDTH2*JCDTHJ 

J*ITH2«-JSITHI 

JFRACTK  JH?-SVHVt  JJHBI)/(SVHVt  JJHTI-SVHVC  JJHBDI 

JCRATID«-SVSCATRt  JjHB]  +  (SVSCATRt  JJHTl-SVSCATRt  JJHB]  IxJFRACTI 

JRATLEE*SVRAYRt  JJHB]  +  (SVRArRt  JJHTI-GVRAYRI  JJHBDXJFRACTI 

JWAIT«-JWAIT*JCRATIOJ 

l?60«  JNCR2* JNCR J 

JLDO70J 

SRSCTANGI 

IF  ( JFr<RORS<JHHOA)  THEN  GO  TO  1340J 
SROETECTI 

IF  ( JERRORS< JWHD A  >  THEN  GO  TD  L340J 
IF  JIOUMPSO  THEN  GO  TO  L269J 


1 249000 
1250000 
1251000 
1 252000 
1253000 
1254000 
1255000 
1256000 
1257000 
1258000 
1259000 
1260000 
1261000 
1262000 
1263000 
1264000 
1265000 
1266000 
1267000 
1268000 
1269000 
1270000 
1271000 
1272000 
1273000 
1274000 
1275000 
1276000 
1277000 
1278000 
1279000 
1280000 


HR  I T£ ( PR  I  NT » FL264 » 1 1  ST 7>J 

L269I  JNCOL^JNCOltll 

IF  ( JNCOLSJNCMAX)  THEN  GO  TO  L120I 

JMAXCOL^JMAXCOL+ll 

JNOGO* JNOGO+1 I 

GO  TO  1101 

L  320 •  JNOGO* JNOGO* 1 1 
JHl  JH2J 
JNCR*JNCR2> 

IF  (JHAIT>JWCO)  THEN  GO  TO  L80» 

JNW  A  I T* JNW A  I T ♦  1 1 
GO  TO  L 1 01 

L 340 1  IF  ( JHHOA>JELIM)  THEN  GO  TO  L350> 

JERRORS* JWHOA I 
GO  TO  L10I 
L 350 1  ENO  END* 

PROCEDURE  MAINPROI 
BEGIN 

INTEGER  JI1»J!2»JI3, JI4# JICHEC*. J JA  !L  #  JL  I  SI  *  JL I  S2»  I  #  JJ 
INTEGER  DX 1 #  DX2I 

COMMENT  THE  FOl LOWING  SUBROUTINES  ARE  REQUIREO* 

SRCHECK*  SRMAIN,  SRDBEAMI 
FORMAT  Ft  10(5110}* 

FL1 10(21 10#4Rl0.4)* 

FL130(6R10.4}# 

FL170(4R10.4), 

Fl210(2I10#R10.4}, 

FL230(3I5#R5. 2*615)# 

F1310(2R10.4*I10*R10»4)* 

FL 330( /"  SVHDCJl  IS  GREATER  THAN  SVHVtJNOHI  FOR  J  ■"*14# 


1261000 
*  262000 
1283000 
1264000 
1285000 
1286000 
1267000 
1268000 
1269000 
1290000 
1291000 
1292000 
1293000 
1294000 
1295000 
1296000 
1297000 
1298000 
1299000 
1300000 
1301000 
1302000 
1303000 
1304000 
1305000 
1306000 
1307000 
1306000 
1309000 
1310000 
1311000 


FL 350  </"!■"»  I4#"J*"»  14*  "TAUHDm*"»$l»El  0.3)* 


312000 
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ri«io(6iio)» 

FL510(R10.4)# 

FL810(6I10)# 

FL905(/ 

"  THE  NUMBER  OF  HISTORIES  W#  S  NOT  EQUALLY  DIVISIBLE  BY  THE  NUMB"# 

'•lr  OF  DEVIATION  GROUPS."/"  THE  N'JMBER  OF  HISTORIES  MAS  RESET  TO"# 
16)# 

FL920(/"  INPUT  NUMBER  OF  MATERIALS  DOES  NOT  AGREE  WITH  NMAT.  ")# 

FL950(/"  INPUT  NUMBER  OF  BOUNDARIES  DOES  NOT  AGREE  WITH  NBMAX . " ) # 
Fl960(/"  INPUT  HUMBER  OF  REGIONS  OOFS  NOT  AGREE  Ml  7y  NKMAX • " ) # 

FllOlOt/"  INPUT  NUMBER  OF  DETECTORS  DOES  NOT  AGREE  MITH  NOMk  , " )  # 

FL 1 040( /"  INPUT  NUMBER  OF  PRINT  COLLISIONS  ODES  NOT  AGREE  MITH  N»COL.")» 
FL1070(/"  INPUT  NUMBER  OF  PRINT  COSINES  ODES  NOT  AGREE  MITH  NR A • " ) # 
FL2000(/ 

"  INPUT  NUMBER  OF  REFLECTION  BOUNDARIES  OOES  NOT  AGREE  MITH  NRFL"# 
"B.")# 

FL2030(/*  INPUT  SOURCE  ANGLE  OPTION  OOES  NOT  AGREE  MITH  NAOP.")# 
FL2060(/"  INPUT  NUMBER  OF  SOURCE  ANGLES  DOES  NOT  AGREE  MITH  NAG.")I 
LIST  LIST1(JLIBRAY#J11#JI2#JI3#JI4)I 

LIST  LIST21  (FDR  DX 1 ♦ 1  STEP  1  UNTIL  JNDH  DO  ( SVHV t DX1 1 # SVT AU t DX II # 
SVSCATRtDXlI#  SVRAYRtDXl)) )) 

LIST  LI ST2(SVNDFC0StJin#SVNPHANG[ Jill# SVSIGNOTtJIl ]#SVRAYLEE( Jill  #SVAt 

jin#svcRATiotjnni 


LIST 

L I  ST3( FOR 

DX1M 

step 

1 

UNTIL 

JLIS1 

DO 

SVDIFCDStDXl 

# Jll  1)1 

LIST 

LIST4(FDR 

D  X 1  ♦  1 

step 

1 

UNTIL 

JLIS1 

DD 

SVPDCOSfDXl# 

Jll))) 

LIST 

LIST5(F0R 

OXl»i 

step 

1 

until 

JL  IS? 

DD 

SVPHANGtOXl# 

Jll  ))) 

LIST 

LIST6(FDR 

DX1  *1 

step 

1 

UNTIL 

Jll  DO 

(SVNBOUNDtDXl  ] 

#  SV I  TYPE ( 

Dxn#svcDEE(Dxnni 

LIST  LISTTtFOR  DX1*1  STEP  1  UNTIL  JI2  DO  t SVNREG (DX1) # S VNB ( 0X1) # SVMATt 
DX1)#SVEMP(DX1 )#FDR  DX2M  STEP  1  UNTIL  4  DO  C S V I B C 0 X 2 # DX 1  ]#SVMPR( 
0X2#DX1 ) ) ) ) I 

LIST  LIST8(F0R  DX1M  STEP  1  UNTIL  Jll  DD  ( SVHDt D - « 1  * SVRD t DX1 ) # SVNPH I D( 


1313000 
1314000 
1315000 
1316000 
1317000 
1318000 
1319000 
1320000 
i 32 1 000 
1322000 
1323000 
1324000 
1325000 
l 326000 
1 3270^0 
1328000 
1329000 
1330000 
1331000 
1332000 
1333000 
1334000 
1335000 
1336000 
1337000 
1338000 
1339000 
1340000 
1341000 
1342000 
1343000 
1344000 
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DXn,$VDBSS(Dxn  1 )) 

LIST  LIST9CFDR  DX1M  STEP  1  UNTIL  JI1  DO  SV I NCDL t OX  11 > J 
LIST  LIST  10( FDR  DX1M  STEP  i  UNTIL  Jl 2  DO  SVC IPAl OKI  ]  > t 
LIST  LI STl 1 ( S V ALBEDO [ Jl i ] ) ) 

LIST  LIST  1 2( FOR  DXU1  STEP  1  UNTIL  JI3  DO  S  VRFANG  t  OX  l  p  Jill )  i 

LIST  LIST13CFDR  DX1M  STEP  1  UNTIL  JI3  DO  SVPDR  C  OX  1  #  J 1 1 3 )  f 

LIST  LIST14CFDR  DXUi  STE*  1  UNTIL  JI«  DD  SVRFLCDSt 0X1 # JI 1  I) J 

LIST  LIST  15(F0R  DXU1  STEP  1  UNTIL  JI2  DO  SVC ANG t DX 1 J > J 

LIST  LIST16CFDR  DX1M  STEP  1  UNTIL  JI2  DD  SVPAGtOXl])! 

LIST  LIST17(FDR  DX1M  STEP  1  UNTIL  JI2  DD  SVWAGtOXI])) 

LIST  LIST18C JHS# JDLDNG» JDELTA» JSMVAL# JNCO# JELIM» JOMIN)) 

LIST  LIST19( JNHHAX» JNGROUP# JNRHaX# JNBMAX# JNCHAX# JNOMAX» JNPA, JNPCDL# 
JNADP# JNAG# JNRFLB# JNMAT, JNSOREG# JMAXR# JI BASE# JIBASl, JIBAS2# JIRAS3# 
JIBAS4,  JIBAS53I 
LIST  LiST20(JNHMAX)l 
LIST  LIST23CI#J#SVTAUHD[I3)  I 
LIST  LIST22C I )l 

LABEL  L5#Ll00,L200#L300,LA00,L500#L520»L600#LT00»L800,L900#L90e*L930* 
L5A#L5AA,L150,L1T0»L190#L506#L5DT#L508#L320#L390#L850, 
L960»L990»L1020»L1050»L1080,L2010,L20A0*L2070#L2087,L3000I 
SNITCH  SNG01*-L800»LT00»L600»L500#L4D0#L300#L200#L100#L850#L900#L3000I 
SNITCH  SNG02«-L5»L520»L5»L520I 
JNMATP*OJ 
JNBHAXP«-Of 
JNRH  AXPA’Ol 
JNRFLBP«-OI 
JNDHAXP*-OI 
JNPCDLP«-OI 
JNPAPa-OI 
JNAGP«-OI 

L5AIREADCDAT»10»ABCC*3)tL5AA1l  NRITE  I C ARD , 1 0# ABC t * J > J  GO  TO  L5AI 
L5AAIRENINDCCARD)!  CLDSE( D AT »RELE ASE  )l 


1 345000 
1  346000 
1347000 
1346000 
1349000 
1350000 
1 351000 
1352000 
1353000 
1354000 
1355000 
1 356000 
1357000 
1 358000 
1 359000 
1360000 
1 361000 
1362000 
1 363000 
1364000 
1365000 
1366000 
1367000 
1 368000 
1369000 
1370000 
1371000 
1372000 
1373000 
1374000 
1375000 


1376000 


1/6 


L5«  R£AD(CAR0»FL10»Ll$Tl)fPlNlS)? 

JNOGO*OI 

GO  TO  SNGOIC JLIBRAY)} 

L 100 1  JNMA7P*JNMATP*ll 
5VMATERLC JNMATP  3 ♦ JI 1 1 
1*11 

DO  BEGIN 

IP  SVMATERLC IIASVMATERLt JNMATPI  THEN 
GO  TO  L 1 501 

IP  IAJNHATP  THEN  GO  TO  L1701 
L150I  END  UNTIL  (I*(IM>)>  JNMATPl 

GO  TO  L190J 

L 1 70 1  JNMATP*  JNMATP-1J 

11901  READ  (CARO/  PL110,  LIST?) J 

JLIS1*SVNDPC0S[JI1IJ 

JLlS2*$VNPHANGCJIlll 

IP  (SVRAYLEEt  Jiml)  THEN  GO  TO  L5I 

READ(CARD/PL130»LIS”3)I 

RFAD(CARD»FL13C#LI$14)7 

READ(CARD»PL1 30/LIST5)) 

GO  TO  LSI 

LPOCl  JNBMAXP*JI1J 
JNRMAXP* Jl?l 
RPAD(CAPD»PL?10#LIST6)I 
READ(CARD»PL?30»LIST’)I 
GO  TO  L5I 

L300I  JNDMAXROIIJ 
READ(CAR0/PL310/LUTB)I 
GO  TO  LSI 

LAOOl  JNPCOLP* JI 1 1 
JNPAP*JI2I 

READCCAFT0»PLA10»LIST9)I 


13P7000 
1376000 
1379000 
1360000 
1361000 
1382000 
1363000 
136A000 
1365000 
1366000 
1367000 
1366000 
1369000 
1390000 
1391000 
1392000 
1393000 
1394000 
1395000 
1 396000 
1 397000 
1396000 
1399000 
1400000 
1401000 
1402000 
1403000 
1404000 
1405000 
1406000 
1407000 


1406000 
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READ(CARD»FL130»LIST10)I 

1 A09000 

GO  TO  L5I 

1  410000 

L500I  JNRFLBPONRFLBP+ll 

1411000 

SVJREFLTtJIl 3 ♦ J 1 2  * 

1412000 

NRFRC  JNRFLBMOIlJ 

1413000 

1*11 

1414000 

DO  BEGIN 

1415000 

IF  NRFRt I]#NRFB[ JNRFLBPI  THEN 

1416000 

GO  TO  L507J 

1417000 

IF  I#JNRFLBP  THEN  GO  TO  15061 

1416000 

L507I  END  UNTIL  (I«-(I*1>)  >  JNRFLBPI 

1419000 

GO  TO  L508I 

1420000 

L506«  JNRFlBP*JNRFlBP-1I 

1421000 

L508I  READ  CCARD.FL510»LISTl 1  )l 

1422000 

JjAIL*SVJREFLTtJIl)l 

1423000 

GO  TO  SNG02UJAILH 

1424000 

L520I  SVNRFANGt JllJtJISl 

1425000 

READ(CARD>FL130>LIST12)I 

1426000 

READ(CARD»FL13G»LIST13)I 

1427000 

SVNRFCOSt  JH  I4.JI4I 

1426000 

RFAD(CARD»FL130»LIST14)I 

1429000 

GO  TO  L51 

1430000 

L600I  JNAOPP*Jlll 

1431000 

JNAGP*JI2I 

1432000 

REAO(CARD> Ft 130> LIST  15)1 

1433000 

REA0CCARD»FL130»LI$T16)J 

1434000 

IF  JNA0PP50  THEN  GO  TO  L5I 

1435000 

P«-AD(CARD»FL130>LIST17)I 

1436000 

GO  TO  LSI 

1437000 

L700I  READ(CAR0>FL130>LIST16)J 

1436CD0 

GO  TO  LSI 

1439000 

LBOOl  REA0(CAR0>FLei0>LISTl9)| 

1440000 
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GO  TO  15! 

1 AA 1000 

L650S  JNOHOIl! 

1AA2000 

READ  (CAR0,Fli7O»lIST21>! 

1  AA  3000 

GO  TO  L5! 

1AAA000 

L900I  JNPR0B»JI 1 ! 

1445000 

JIOUMPOI2! 

1446000 

JICHECK»JI3! 

]  447000 

JNPARTONHMAX  div  jngrouP! 

1448000 

IF  (JNHMAX-JNPARTKJNGROUP)  THEN  GO  TO  1906! 

1449000 

JNHMAX*JNPART* JNGROUP! 

1450000 

NRITE(PRINT#FL905#LI$T20>! 

1451000 

L908I  IF  (JNMATPxJNMAT)  THEN  GO  TO  1930! 

1452000 

NRITECPRINT»FL920>! 

1453000 

JNOGO»JNOGOMJ 

1454000 

L930 »  IF  (JNBHAXP-JNBKAX)  THEN  GO  TO  I960! 

1455000 

HRITE(PRINT»FL950>! 

1456000 

JNOGOONOGOMI 

1457000 

L960 1  IF  (JNRHAXPbJNRHAX)  THEN  GO  TO  L990! 

1458000 

NRITE(PRINT#FL980>! 

1459000 

JNOGOPJNOGOM! 

1460000 

L990 1  IF  (JNOHAXPaJNOHAX)  THEN  GO  TO  L1020! 

1461000 

NRITE(PRINT*FL1010>! 

1462000 

JN0G0*JN0G0*1! 

1463000 

L1020I  IF  ( JNPCOLP* JNPCOL )  THEN  GO  TO  L 1 0501 

1464000 

NRITE(PRINT»FL10A0>! 

1465000 

JNOCO*JNOGOMI 

1466000 

L1050I  IF  ( JNP AP» JNPA )  THEN  CO  TO  L 1 0601 

1467000 

NRITE(PRINT»FL10r0>! 

1466000 

JN0G0*JN0G0*1I 

1469000 

L 1 060 1  IF  (JNRFLBP'JNRFLB)  THEN  GO  TO  L2010! 

1470000 

NRITEtPRIN?»FL2000>! 

1471000 

JNOGO^JNOGOM! 

1472000 
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L2010I  IF  { JNAOPP«JNAOP)  THEN  GO 

TO  L20A01 

1 073000 

WRITE(PRINT,FL2030)1 

1 474000 

JNOGO*  JNOGOM 1 

1 A750C0 

L2040 1  IF  (JNAGP-JNAG)  THEN  GO  TO 

L2070J 

1  A  7  6000 

WRITE(PRINT»Fl2060)1 

1477000 

JNDGO*  JNOGDM 1 

lareooo 

L2070I  IF  JNOGO>0  THEN  GO  TO  L5l 

1 #79000 

IF  JICHECKSO  THEN  GO  TO  L2087J 

1 480000 

SRCHECK) 

I #81000 

Lpoen  i«.  li 

1 #82000 

DO  BEGIN 

1 #83000 

J4-  21 

1 #8#000 

DO  BEGIN 

1 #85000 

IF  (SVHDtn>SvHVt  J3  )THEN  GO  TO  L  320  * 

1 #86000 

SvTAUHOt  II«-SVTAUt  J“1 3  +  C  SvTAUt  JI  - 

SvTAUt  J-1I )x(SVHD (II -SVHVtJ-1] )/ 

1 #87000 

(SVHVt J]-SVHV[ J-l 3)1 

1 #88000 

IF  (JIDUMP  i  0)  THEN  GO  TO  1390  1 

1 #89000 

WRITE  (PRINT*  FL350,  LIST23)  1 

1 #90000 

GO  TO  L 3901 

1 A  91 000 

L 320 1  END  UNTIL  (J*(J*1>  )>JN0H1 

1 #92000 

WRITE  (PRINT, FL330»LIST22)> 

1 #  9  3000 

L 3901  END  UNTIL(  I*(  IM  )  )>JNDMAX1 

1494000 

SRMAIN1 

1495000 

SRDBEAM1 

1496000 

GO  TO  L51 

1497000 

1. 30001  ERROR(  0 )  1 

1498000 

FND1 

1499000 

COMMENT  INITIALIZING  BL0CK1 

1500000 

XPR*Q«-K*0  J 

1501000 

SENSWt 1  j*F  ALSE1 

1 502000 

SENSW(2]*FALSE1 

1503000 

SENSWt  3 1 *F ALSEI 

1504000 
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SENSN[*]*FAISEJ  1505000 

SENSWt5]*rALSn  1506000 

$ENSWt6]*rA|  SEJ  15C7000 

SENSLtl ]*FALSE5  1508000 

SEN$lC2]*TAl5EJ  1509000 

' ENSL 131 ♦FALSE!  1510000 

SEN5L I A  ]*.FALSE I  1511000 

MAINPRO)  FINISI  END*  1512000 

LKNJA*(TIHE(2)-LKNJA)/60>0KV0K«>(TIMC(3)-0KVQK)/60irZ0VC»TIME(nJBLZATIRR  1513000 
ITECPRINTtPAGEniKRlTE(PRlNT#CMGUB»100*LJLnU+0CPaV.LKNJA»0KV0K)l  15M000 

END,  1515000 
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